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Presenting  CompuServe  Forums. 
Where  people  from  all  over  get 
together,  without  even  leaving 
home. 

Now  thanks  to  CompuServe 
Forums,  computer  owners  are  sharing 
common  interests  by  talking  to  each  other 
through  their  computer  keyboards.  Soft- 
ware users,  computer  enthusiasts,  ham 
operators,  french  cooks,  Bre  Sghters, 
science  Bction  lovers  and  other  special 
interest  groups  are  already  in  touch, 
online. 

Because  when  you  subscribe  to 
CompuServe,  you're  able  to  reach  people 
who  want  to  talk  about  the  things  you  do. 
As  many  people  as  you  like.  For  as  long 
as  you  like.  Whenever  you  wish. 

Join  a  conversation  already  in 


progress  or  start  one  on  your  own.  Ask 
questions.  And  get  answers. 

All  it  takes  is  a  modem,  most  any 
personal  computer  and  CompuServe. 

Forum  members  across  the  country 
are  as  close  as  a  local  phone  call. 

You  can  go  online  with  just  a  local 
call  in  most  major  metropolitan  areas.  And 
normal  usage  fees  for  weekday  nights  and 
weekends  are  just  IOC  a  minute 

Of  special  interest  to  all  Forum 
participants  is  software  that's  FREE 
for  the  taking. 

Public  domain  software.  For  all 
sorts  of  activities,  from  games  to  business 
programs.  And  it's  just  as  easy  to  copy  a 
piece  of  software  as  it  is  to  participate  in 
a  Forum. 


Become  a  CompuServe  subscriber  and 
get  a  $25  Usage  Credit  to  start  you  off. 

Becoming  a  subscriber  is  as  easy  as 
contacting  your  local  computer  dealer.  Or 
you  can  call  us  and  order  direct.  Suggested 
retail  price  is  $39.95. 

And  if  you'd  want  more  information 
about  CompuServe,  we'll  be  happy  to  send 
you  a  free  brochure.  Because  with  all  that 
CompuServe  offers — we  think  it's  in  your 
best  interest. 

CompuServe® 

Inlormalion  Sefvices.  PC  Box  20212. 
50O0Arlinr)l,inC.-'ntfoB:v(l   Columbus  OH  43220 

800-848-8199 

In  Ohio,  call  6 14-457.0602 
An  HSR  Block  Company 
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Richard  MansfleW 

Ttw  understandaae  giMe  lo  8502  matHne 

language  pfogramming  en  im  Commodom  126. 

fnOudes  a  sophisticated,  Iat%l-bas6d  ass$ml:Mr 

optimized  f<r  ih«  12B. 


A  COMPUTEI  hiolll  PutHicallo.'i 


One  of  the  bestselling  computer  books  ever  has  now  been  completely  revised  for  the  Commodore  128. 
Most  commerciaf  software  is  written  in  machine  language  because  it's  far  faster  and  more  versatile  than  BASIC. 
This  new  edition  of  Machine  Language  for  Beginners  Is  a  step-by-step  introduction  to  8502  machine  language 
programming  on  Commodore's  128  computer. 

The  book  includes  everything  you  need  to  learn  to  effectively  program  the  128:  numerous  programming 
examples,  memory  management  tutorials;  a  complete  description  of  the  many  Kernal  routines  and  othernew  128 
features;  numerous  hints  and  programming  techniques;  and  a  dictionary  of  all  major  BASIC  commands  and  their 
machine  language  equivalents.  It  also  includes  a  high-speed,  professional-quality,  label-based  assembler, 
optimized  to  take  advantage  of  the  speed  and  extra  memory  of  the  128. 
0-87455-033-5 
$16.95 

Like  the  other  top-quality  books  from  COMPUTE!,  728  Machine  Language  for  Beginners  brings  you  ready-to-use 
information  in  a  clear,  lively  style  that  makes  learning  easy  and  enjoyable,  whether  you  are  a  beginner  or  an  ad- 
vanced computer  user. 

An  optional  disk  is  also  available  which  includes  the  assembler  and  example  programs  in  the  book.  The  728 
LADS  Disk  is  fully  tested  and  ready  to  load  on  the  Commodore  128.  It  costs  only  $12.95  and  saves  you  hours  of 
typing  time. 

Order  your  copy  of  T28  Machine  Language  for  Beginners  and  the  LADS  Disk  today.  Call  toll  free  1-800-346-6767 
(in  NY  1-212-887-8525)  or  mail  your  payment  (plus  $2.00  shipping  per  book  or  disk)  to  COMPUTE!  Books,  P.O. 
Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 


COMPUTE!  PublicationsJnc.(S 

One  Qt  trie  ABC  Pubiishing  Companies  ^^ 

d2b  7th  A'jsnue.  6Th  Floor.  New  YorK.  NY  10019 

h«5*in«i  of  COM>JTEi,  COMf\TEis  GozBHa.  CCMPUTti's  Gffiene  Osk.  COvWjTE!  Books,  one  COWUTEi'i  Apw  Aoo<Oiora 


COMPUTE!  books  are  available  in  the  U.K.,  Europe,  the  Middle 
East,  and  Africa  from  Hott  Saunders,  Ltd.,  1  St.  Anne's  Road,  East- 
bourne, East  Sussex  BN21  3UN,  Engiand  and  in  Canada  from  Hoit, 
Rinehart,  &  Winston,  55  Horner  Avenue,  Toronto,  ON  M82  4X6. 


$10,000.00 

Atari  ST 
Programming  Contest! 

First  Prize  $5,000.00  Second  Prize  $2,500.00 

Third  Prize  $1,000.00 
Three  Honorable  Mentions  $500.00  each 

COMPUTE!  Publications,  Inc.  is  looking  for  the  very  best  original  software  for  the  Atari  ST  series 
cort\puters.  And  to  prove  we're  serious,  we're  offering  a  total  of  $10,000.00  in  prize  money  to  the  top 
six  winners.  That's  $5,000.00  for  First  Prize,  $2,500.00  for  Second  Prize,  $1,000.00  for  Third  Prize, 
and  $500.00  each  for  three  Honorable  Mentions.  In  addition,  the  winners  will  receive  our  standard 
royalties  when  their  programs  are  published.  And  even  if  your  program  doesn't  win  a  prize,  you  can 
still  earn  purchase  fees  and  royalties  if  we  accept  your  entry  for  publication. 
Interested?  If  so,  read  these  rules: 


1.  Entries  must  be  your  original  work,  previously  unpublished.  All  those 
whose  programs  are  accepted  will  be  required  to  affirm  this  in  writing. 

2.  You  can  submit  as  many  entries  as  you  want,  but  we  cannot  consider 
programs  which  have  been  entered  in  other  contests  or  submitted  for 
publication  elsewhere  at  the  same  time. 

3.  The  deadline  is  October  1,  1986.  All  entries  must  be  received  at  our 
offices  by  this  date.  Programs  submitted  after  this  date  will  still  be  consid- 
ered for  publication,  but  will  not  be  entered  in  the  contest. 

4.  Entries  are  allowed  {and  encouraged)  in  virtually  all  software  categories: 
home  and  business  applications,  education,  recreation,  telecommu- 
nications, graphics,  sound  and  music,  utilities,  and  desk  accessories. 

5.  Entries  may  be  written  in  any  programming  language — including 
BASIC,  Logo,  C,  machine  language,  Pascal,  Modula-2,  Forth,  FORTRAN, 
and  Prolog— as  long  as  they  meet  two  requirements.  First,  if  you're  using  a 
compiled  language,  the  compiled  object  or  run-time  code  must  be  a  self- 
standing  program  that  can  be  run  by  someone  who  doesn't  own  a  copy  of 
the  language.  (Exceptions  are  ST  BASIC  and  Logo.  Since  these  languages 
come  with  the  ST,  it  can  be  assumed  that  everyone  owns  a  copy.)  Second, 
we  must  be  able  to  legally  disb-ibute  the  program  without  incurring  licens- 
ing fees  or  other  obligations  to  the  maker  of  the  language.  If  you're  not  sure 
whether  a  certain  language  qualifies,  contact  its  maker  for  clarification. 

6.  Entries  must  be  submitted  on  a  single-  or  double-sided  3V:-inch  ST  disk 
with  both  the  run-time  code  and  source  code  included, 

7.  Entries  must  be  accompanied  by  an  article  which  explains  how  to  use  the 
program,  what  it  does,  and  so  on.  If  your  program  employs  any  new  or  un- 
usual techniques  that  you  think  will  be  of  interest  to  other  ST  pro- 
grammeis,  you  can  also  describe  how  the  program  works. 

8.  Submissions  which  do  not  win  a  prize  and  are  not  accepted  for  publica- 
tion will  be  rehjmed  only  if  accompanied  by  a  self-addressed,  stamped 
mailer, 

9.  All  judging  will  be  handled  by  the  staff  of  COMPUTE!  Publications,  Inc. 
All  decisions  regarding  contest  entries  and  acceptances  will  be  solely  at  the 


discrefion  of  COMPUTE!  Publications,  Inc.,  and  all  decisions  are  final.  This 
includes  decisions  regarding  creativity,  similarity  among  entries,  and  so 
forth. 

10.  Winners  will  be  announced  by  COMPUTE!  Publications,  Inc.  in  late 
1986. 

1 1,  This  contest  is  void  where  prohibited  by  law.  Full-time,  part-time  & 
previous  employees  of  COMPUTE!  Publications,  Inc.,  and  Capital  Cities/ 
American  Broadcasting  Corporation  are  ineligible  for  the  contest,  but  may 
still  submit  work  for  publication  at  standard  rates. 


Every  Contest  Entry  Musi  Contain  This  Form: 

1  warrant  that  the  program  presently  entitled 


is  my  own  original  work 


and  that  the  work  has  not  been  submitted  for  consideration  elsewhere,  nor 
has  it  been  previously  published.  If  my  work  is  accepted  by  you,  1  under- 
stand that  your  decision  as  to  the  selection  of  winners  and  awarding  of 
prizes  is  final  and  without  recourse  on  my  part.  I  agree,  should  you  select 
my  submission,  to  sign  your  standard  contract,  which  includes  assignment 
of  the  copyright  of  the  program  to  COMPUTE!,  and  to  allow  you  to  use  my 
name  and  image  in  promotional  materials  and  other  forms.  {If  you  are  under 
age  eighteen,  your  parent  or  legal  guardian  must  sign  for  you.) 

Address  entries  to: 

ATARI  ST  CONTEST 
COMPUTE!  Publications,  Inc. 
P.O.  Box  5406 
Greensboro,  NC  27403 

COMPUTE!'  Publicationsjnc.® 

Part  o1  ABC  Consumer  Magazines.  Inc.  ^^^ 

On©  ol  the  ABC  Publishing  Companies 


Announcing  major  news  for  Atari  ST  users: 


DISK   8c  ^MAGAZINE 


MASAZiN  E 


A  bimonthly  magazine  devoted  exclusively  to  Atari  ST  enthusiasts  that  includes  a 
disk  containing  all  of  the  programs  found  in  each  issue. 

Atari  has  proven  the  pessimists  wrong.  The  Atari  520ST 
and  1040ST  have  become  the  bestsellers  among  the 
new  generation  of  personal  computers.  Both  are  break- 
throughs in  price  and  performance,  and  the  community 
of  ST  owners  is  growing  by  thousands  each  month. 

That's  one  reason  why  COMPUTE!  Publications  is 
announcing  a  new  magazine  specially  designed  for  ST 
users.  At  the  same  time,  we  recognize  that  the  power  of 
the  ST  presents  a  unique  challenge  to  magazines  which 
publish  program  listings.  That's  why  we're  including  a 
SVi-inch  disk  that  contains  every  program  found  in 
each  issue — ready  to  load  and  run.  No  more  typing! 

Here's  what  you'll  get  in  every  issue  of  COMPUTEI's 
Atari  ST  Disk  &  Magazine: 

•  Top-quality  programs.  Utilities.  Games.  Educational 

programs  for  youngsters.  Application  programs  for 
home  and  business.  And  since  all  the  programs  will  be 
on  disk,  there  are  few  limitations  on  length  or  lan- 
guages. A  typical  disk  might  contain  an  elaborate 
adventure  game  written  in  BASIC,  a  programming  utility 
written  in  machine  language,  a  dazzling  graphics  demo 
in  compiled  Pascal,  and  a  useful  home  or  business 
application  written  in  Forth  or  C. 

•  Neochrome  of  the  Month.  Take  a  look  at  what  com- 
puter artists  are  doing  with  the  Atari  ST.  Each  issue's 
disk  contains  a  Neochrome  picture  file  ready  for  you  to 
load  and  admire.  Are  you  an  artist  yourself?  Send  us  a 
picture  of  your  own,  and  we'll  pay  you  if  it's  published. 

•  Regular  columns.  If  you're  a  programmer — or  would 
like  to  be — you'll  love  our  columns  on  ST  programming 
techniques  and  the  C  language.  Or  check  out  our 
column  on  the  latest  events  and  happenings  throughout 
the  ST  community.  Or  send  your  questions  and  helpful 
hints  to  our  Reader's  Feedback  column. 

•  Reviews.  Honest  evaluations  of  the  latest  software 
and  hardware  for  the  Atari  ST. 

•  News  &  Products.  A  comprehensive  listing  of  the 
newest  releases  for  your  ST. 


•  And  more:  Interviews  with  ST  newsmakers,  reports 
on  the  latest  industry  trade  shows,  and  overviews  of 
significant  new  product  introductions. 

Starting  with  the  October  issue  (available  September  1), 
COMFUTES's  Atari  ST  Disk  &  Magazine  will  be 

found  on  newsstands  nationwide  for  only  $12.95  per 
copy,  including  disk.  Or  it  can  be  delivered  directly  to 
your  maObox  six  times  a  year  for  orjly  $59.95 — a  savings 
of  over  20  percent. 


As  a  special  bonus,  rf  you  order  a  prcp,iid 

subscription  before  August  1,  you'll  get 

the  first  issue  absolutclv  free! 


To  order,  call  800-346-6767.  In  NY  212-887-8525 
or  send  check  or  money  order  to 
COMPUTEI's  Atari  ST  Disk  &  Magazine 

ABC  Consumer  Magazines,  Inc. 
Circulation  Dept./8th  Floor 
825  7th  Avenue 
New  York,  NY  10019 

COMPUTE!'  Publiccitions,lnc^ 

Pari  of  ABC  Consumer  Magazines,  Inc.  ^li 

Or>e  of  the  ABC  Publishing  Companies        Atori  is  a  trademarlt  of  Atori  Corporotion 
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The  Newsroom. 

Design,  Create  and  Print  Out 
Your  Very  Own  Newspaper. 


Look  who's  making  news. 

The  Newsroom'"  is  an  exciting  program 
complete  witti  everyttiing  you  need  to  create 
fun  and  soptiisticated  newspapers  ttiat  are 
uniquely  yours. 

I^amilies,  scfiools  and  businesses  everywhere 
are  using  Ttie  Newsroom  to  tell  tlieir  story. 

Here's  what  you  can  do. 

ITie  Newsroom  is  surprisingly  easy  to  use, 
\t)u're  in  control  of  all  design  elements, 
starting  witti  over  600  pieces  of  delightful 
clip  art  included  in  ttie 
■  program.  Combine 
pieces,  alter  ttiem,  or 
I  create  your  own 


images  witti  Ttie  Newsroom's  dynamic  drawing 
and  editing  tools, Wtiafever  ttie  nature  of  your 
news,you'll  find  art  ttiat  fits  ttie  situation. 

You  can  enter  text  with  The  Newsroom's 
word  processor  in  any  of  five  different  fonts  that 
automatically  wrap  around  pictures.  You  can  print 
out  on  legal  or  letter  size  paper  using  any  popular 
computer  printer.  And,  if  you  have  a  modem, 
you  can  send  and  receive  newspapers  between 
other  owners  of  The  l\lewsroom,  no  matter  what 
computer  they're  using. 

Now  Available  for 
Apple  n+,  He,  lie 

IBM  PC 
Commodore  64/128 


More  clip  art  to  add  to 
your  collection. 

Clip  Art  Collection  Volume  1'"  offers  an 
additional  600  pieces  of  art  in  a  variety  of  cate- 
gories. You'll  find  the  perfect  piece  to  illustrate 
even  the  rarest  of  topics. 
Clip  Art  Collection  Volume  2'"  offers  over  800 
pieces  of  art  for  businesses 
large  and  small. 


I  The  Newsroom 
is  for  everyone. 
ff^  I  Lookforitat 
yourjavorite 
software  store. 


The  Newsroom  Commodofe  64/128-S49  95  Apple  1I+.  He,  He  &  IBM  PC-S59,95,  Clip  Art  Collection  Volume  1 -$29,95  All  fennats-  Dip  Art  Colleclion  \felume  2-S39-95  Ail  kDrmalS- 
SprinigtMard  Software,  Inc.  •  7808  Creekriiige  Csrcie  •  Minneapotts,  m  55435  •  (612}  944  -  3915. 
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Editor's  Notes 


Last  month,  we  hinted  at  a  significant 
pending  announcement  for  Atari  ST  us- 
ers. Here  at  COMPUTE!,  one  of  the  most 
exciting  things  we  do  is  launch  new  publi- 
cations. We  are,  without  parallel,  the  most 
successful  and  balanced  publishing  house 
in  the  industry  of  consumer  computing.  A 
decision  on  our  part  to  support  a  com- 
puter manufacturer  and  a  computer  sys- 
tem with  a  dedicated  magazine  is  not 
made  lightly.  We  are  extremely  pleased, 
therefore,  to  announce  that  ABC  Publish- 
ing, our  parent  company,  has  committed 
full  support  to  our  launch  of  COMPUTEI's 
Atari  ST  Disk  &  Magazine. 

This  win  be  our  very  first  product 
that  comes  as  a  magazine/disk  combina- 
tion only.  Whether  you  subscribe  or  pur- 
chase it  from  a  newsstand,  you'll  get  a 
magazine  containing  the  articles  and  a 
disk  containing  the  programs.  It's  a  single, 
united  product.  And  one  we're  quite 
proud  of. 

No  publisher  in  this  industry  has 
been  as  successful  as  COMPUTE!  Publi- 
cations at  marrying  diverse  publishing 
technologies.  When  we  introduced  COM- 
PUTEI's GAZETTE  DISK,  other  disk  prod- 
ucts were  selling  a  few  hundred  copies  at 
$30  or  more  per  issue.  We  launched  the 
GAZETTE  DISK  at  $1 2.95  and  created,  with 
your  massive  support,  an  overnight  price 
move  in  the  industry.  The  GAZETTE  DISK 
is  today  the  bestselling  product  of  its  kind 
in  the  world,  circulating  tens  of  thousands 
of  copies  per  month. 

We  fully  expect  COMPUTEi's  Atari  ST 
Disk  &  Magazine  to  accomplish  the  same 
feat.  At  launch,  our  newsstand  distribu- 
tion will  rival  that  of  a  magazine-only 
publication.  Logistically,  there  are  numer- 
ous difficulties  involved  in  binding  tens  of 
thousands  of  disks  into  magazines  head- 
ing for  newsstands.  It's  an  exciting  under- 
taking, and  we'll  be  anxiously  awaiting 
the  results  of  the  first  newsstand  sales. 
Watch  for  the  premiere  issue  of  COM- 
PUTEI's Atari  ST  Disk  &  Magazine  in  Sep- 
tember at  your  local  newsstand  that 
handles  COMPUTE!  and  COMPUTEI's  GA- 
ZETTE. We  have  every  hope  that  it  will 
become  a  collector's  item. 

You'll  find  complete  details  of  our 
announcement  on  page  3  of  this  issue.  On 
page  2  you'll  also  find  a  rather  interesting 
contest  announcement.  We're  offering 
$10,000  in  prizes  for  the  very  best  Atari 
ST  programs  and  articles.  Good  luck! 

Commodore  64  Forever 

At  this  June's  Consumer  Electronics  Show 


in  Chicago,  Commodore  plans  to  unveil 
something  that  may  seem  ho-hum  to 
many  people.  In  an  age  of  16/32-bit  Ami- 
gas  and  STs  with  megabytes  of  memory. 
Commodore  is  preparing  to  announce  a 
revamped  version  of  the  Commodore 
64 — basically  the  same  computer  in  shiny 
new  wrappings.  Dubbed  the  Commodore 
64C,  it  will  be  a  fully  compatible  64  in  a 
Commodore  128-style  case.  Enclosed  in 
the  package  will  be  a  floppy  disk  contain- 
ing a  terminal  program  for  accessing  the 
QuantumLink  information  service,  and 
GEOS,  the  graphics-oriented  operating 
system  and  user  interface.  Expected  price; 
between  $160  and  $180. 

This  may  not  seem  too  exciting — 
unless  you're  a  Commodore  enthusiast  or 
someone  searching  for  an  inexpensive 
home  computer  system.  From  our  view- 
point, it's  the  most  exciting  64-related 
announcement  in  the  past  three  years. 
Loud  and  clear,  it  broadcasts  three  impor- 
tant messages: 

1.  Despite  its  commitment  to  estab- 
lishing the  Amiga  as  its  flagship  personal 
computer,  Commodore  is  not  abandoning 
the  millions  of  64  owners.  The  Commo- 
dore 64C  shows  that  Commodore  is  de- 
termined to  continue  its  support  of  what 
has  become  the  world's  most  popular 
home  computer. 

2.  The  Commodore  64  market  will 
remain  a  significant  source  of  revenue  for 
software  developers,  and  may  even  keep 
expanding. 

3.  As  the  bundling  of  GEOS  shows, 
the  64  is  still  evolving,  growing  more 
powerful  and  easy  to  use,  and  is  an  excep- 
tional value  for  people  who  need  a  func- 
tional computer  system  for  under  $500. 

Like  Apple's  slogan  when  it  intro- 
duced the  Apple  lie — "Apple  II  For- 
ever"— Commodore  is  declaring,  in 
effect,  "Commodore  64  Forever." 

Forever  is  a  long  time,  and  we  don't 
really  think  the  64  will  be  around  quite 
that  long.  Still,  Commodore's  renewed 
commitment  to  the  64  reassures  those 
who  have  wondered  if  their  computers 
would  soon  be  "orphans."  COMPUTE!  has 
received  many  letters  from  readers  who 
feared  that  the  64  market  would  dry  up 
and  vanish  now  that  Commodore  is  pre- 
occupied with  the  Amiga  and  128.  And 
actually,  as  we  reported  several  issues 
ago.  Commodore  did  attempt  to  shut 
down  64  production  more  than  once  last 
year.  But  each  time,  the  unabated  hunger 
for  this  four-year-old  machine  swamped 


Commodore  with  orders,  and  the  compa- 
ny was  forced  to  restart  production  and 
rethink  its  strategy.  The  64  refuses  to  die. 
So  Commodore  is  taking  advantage 
of  the  situation  by  bringing  the  computer 
up-to-date  without  sacrificing  its  compati- 
bility with  the  thousands  of  programs  and 
peripherals  already  on  the  market.  Here  is 
what  Commodore  plans  to  announce  at 
CES: 

•  The  64C  in  a  more  professional- 
looking  Commodore  128-style  case  (mi- 
nus the  128's  numeric  keypad); 

•  A  bundled  disk  containing  GEOS 
(Graphics  Environment  Operating  Sys- 
tem) and  QuantumLink  software.  GEOS 
is  patterned  after  the  desktops  found  on 
the  Macintosh,  Atari  ST,  and  Amiga — 
windows,  icons,  pull-down  menus,  bit- 
mapped graphics,  and  multiple  onscreen 
type  fonts.  GEOS  includes  several  inte- 
grated application  programs  and  desk  ac- 
cessories, including  GEOpaint, 
GEOwrite,  a  calculator,  notepad,  and 
clock.  In  addition,  GEOS  significantly 
speeds  up  disk  access  without  modifying 
the  1541  drive.  (For  more  details  on 
GEOS,  see  our  Winter  CES  report  in  the 
April  1986  issue  of  COMPUTE!.) 

•  On  the  flip  side  of  the  disk,  64C 
buyers  will  get  the  special  terminal  soft- 
ware necessary  to  access  QuantumLink, 
the  online  communications  service  spe- 
cially tailored  to  Commodore  users. 

•  The  1541  drive  will  also  get  a  sleek 
new  case  to  match  the  64C. 

•  Memory  expansion  up  to  128K  and 
512K  RAM  for  the  64  and  128. 

•  A  3'/i-inch  floppy  disk  drive  for  the 
64  and  64C,  priced  around  $225. 

All  in  all,  it's  an  interesting  series  of 
announcements,  and  an  encouraging  de- 
velopment for  Commodore  64  enthusiasts 
everywhere. 


Robert  C.  Lock, 
Editor-in-Chief 


Tom  R.  Halfhill 
Editor 
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IF  YOUia  REABYFOR 
HOME  BANKING 
BUT  YOUR  BANK  ISN'T. 


YOU'RE  READY  FOR  CHASE. 


NEW  rOKK'S  PItEMKR 

HOME  BANKING  AND 

INFORMATION  SYSTEM. 

You're  ready  for  a  way  to 
make  the  most  of  your  time,  your 
money  and  your  personal  com- 
puter, and  here  it  is.  SPECTRUMf  tine  hiome  banking 
and  infornnation  system  from  The  Chase  Manhattan 
Bank,  N.A  BANKING  JUST  GOT  A  LOT 

MORE  PERSONAL. 
Just  switch  on  your  PC,  and 
you've  got  the  undivided  attention  of 
a  banker  a  broker,  and  a  bookkeeper 
Right  in  your  own  home,  your 
office,  or  wherever.  24  hours  a 
day  7  days  a  week.  With 
complete  security 
irS  WHAT  HOME  BANKING 
SHOULD  BE.  EASY. 
Touch  a  button  to  check  your  balances;  transfer 
funds  between  checking,  savings,  money  market  and 
other  accounts;  pay  bills  to  anybody,  any- 
where; and  keep  records.  Touch  another 
and  you've  got  key  financial  planning 
information  to  set  goals.., and  meet  them. 

Touch  still  another  and  a  complete 
investment  menu  is  at  your  service: 
check  the  market,  get  the  bottom  line  on  over 
4600  companies  with  S&P  Online™  from  Standard 
&  Poor's  Corporation,  track  your  portfolio,  even 


trade  stocks  and  options  at  a  discount  through 
Rose  &  Company  a  Chase  affiliate. 

If  you  do  have  any  questions,  there's  even  a 
real  person  you  can  call-16  hours  a  day      /^    ' 
HOME  BANKING,  AND  THEN  SOME. 

Since  there's  more  to  life  than 


banking  and  finance,  there's  more 
to  SPECTRUM  than  that. 

Through  our  elec- 
tronic bulletin  board, 

you  can  find  a  squash  partner;  a  recipe  for  pasta  af 
pesto,  maybe  even  a  ski  house  share  up  in  Vermont! 
THEBIGPAYOFR 
The  good  news  is  that  all  this  starts  at  just  $5  a 
month,  with  the  first  2  months  of  service  free.  There 
are  no  sign-up  fees  or  connect  time  charges,  and,  thanks 
to  our  800  number;  even  the  phone  calls  are  free. 
So  if  the  only  thing  that's  kept  you  from  home 
banking  is  your  bank,  give  us  a  call.  We'll  make  it  easy 
for  you  to  open  an  account  with  us 
'^»,  to  get  on-line  with  SPECTRUM, 
You  can  still  use  your 
other  bank  for  other  financial 
needs. 

But  if  you're  ready  for 
New  York's  premier  home 
I  banking  and  information 
system,  chances  are,  you're 
''ready  for  Chase. 


O 
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Color  Monitor 


(Premium  Qualify) 


*  Built  in  Speaker  &  Audio 

*  For  Video  Recorders 

*  For  Small  Business 
Computers 

*  Apple -Commodore 
-Atari  -  Aplus  3000  -etc. 

*  One  Year  Warranty' 


Sale 


RGB 

Super  High 
Resolution 


(Premium  Qualify) 


•  Beautiful  Color 
Contrast 

•  High  Resolution 

•  Sharp  Clear  Text 

•  Anti-Glare  Screen 

•  40  Columns  X  24  Lines 

•  Front  Panel  Controls 


List  $329°° 

$ 

Sale 

Add  $14.50  Shipping 


1 39« 


"^^^^PP  im  11    13"  Color  Computer  Monitor' 

^^^^^^  Super  High  *C64/ Atari  composite  cable  $9.95 

^^^^^  Resolution         *  C128  RGB/Composite80column  cable$19.95. 

14"  RGB  &  Composite  Color  Monitor 

Allows  use  of  C-128  and  C64  mode  -  composite  and  80  column  RGB  mode.  ^  ^^  ■  ^^  AC 

Must  be  used  to  get  80  columns  in  color  with  60  column  computers.  Specially  1-ist  $399.00    3  ■■  |^  Q  #  3 

designed  for  use  with  the  C128's  special  composite  video  output,  plus  green  mt         |                 M    ^m  ^B 

screenonly  option  switch,  (add  $H.50  shipping)  ^CilG       ^fa  tv      * 

14"  MAGNAVOX  Higher  Resolution  RGB  &  Composite  Monitor  $'¥V095' 

(Add  $14.50  Shipping)  Sale     ^/7 

12"  80  Column  Green/Amber  Monitor  ust$i29.oo  ev||o5* 


Sole 


Super  high  resolution  composite  green  or  amber  screen  monitor.  80 
columns  x  24  lines,  easy  to  read.  Fantastic  value.  Limited  Quantities. 

9"  Samsung  Hi  Res  Green  Screen  Monitor  List  $129  95   $ 

Super  High  Resolution  80  column  monitor  perfect  for  Apple  &  Aplus  3000  ^      . 

computers.  Fantoslic  Value.  Very  Limited  Quantities.  Sale 


59 


95 


Turn  Your  Monitor  into  a  TV  Set  Without  Moving  Your  Computer 

Elegant  TV  Tuner  with  dual  UHF/VHF  selector  switches  goes  between  your 
computer  and  monitor.  Includes  mute,  automatic  fine  tuning  ond  computer-     '''^*  $129.95 
TV  selector  switches.  Inputs  included  for  300  ohm,  75  ohm,  ond  UHF.  Can  be  A        | 

used  with  coble  TV  and  ^/CR's.  Fantastic  Value.  Limited  Quontities.  (Includes  SCI 1^ 

loop  antenno  for  UHF  &  RCA  connecting  cables)  *»*■  ■  ^ 

15  Day  Free  Trial  -  90  Day  Immediate  Replacement  Warran ty 

*LOWESTPRICES    »  BEST  SERVICE  IN  U.S.A.    *  ONE  DAY  EXPRESS  MAIL    '  OVER  500  PROGRAMS    '  FREE  CATALOGS 
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Add  SIO.OO  for  sliipping,  handfing  ond  insurance.  Illinois  residenis 
please  add  6'/.%  ta».  Add  S20.00  for  CANADA.  PUERTO  RICO, 
HAWAII,  ALASKA,  APO-FPO  ordefs.  Conadian  orders  must  be  in  U  S 
dollors.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTfilES,  EXCEPT 
CANADA.  Enclose  Coshier  Check.  Money  Order  or  Personol  Choclt. 
Allow  U  days  for  delivery.  2  to  7  days  for  phone  orders.  1  doy  express 
moiH  Prices  &  Avoilability  subject  lo  change  wifhouf  notice. 
VISA  —  MASTER  CARD  —  C.O.D.  C.O.D.  on  phone  orders  only 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barringfon,  Illinois  60010 

312/382-5244  to  order 


COMMODORE  64 
COMPUTER 

(Order  Now) 

*I39'» 


•C128  Disks  79' ea.* 

•  Poperbock  Wrrter  64  $39.95 

•  13"  Color  Monitor  »139.95 

CALL  BEFORE  YOU  ORDER 


COMMODORE  64 
SYSTEM  SALE 


Commodore  64 


Plus  $30.00  S8H 


Com.  1541 
Disk  Drive 

13"  Color 
Monitor 


^457 


C128  COMMODORE 
M  COMPUTER 


^lH^^       (Order  Now) 


SPECIAL  SOFTWARE  COUPON 
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(SEE  BELOWl 


Wtth  *59.9S  Ttmeworks  Wordwrlter 
WordprocsMor  savings  applied 

•  340K  1571  Disk  Drive  »259.00 

•  Voice  Synthesizer  $39.95 

•  12"  Monitor  $79.95 

PRICES  MA  Y  BE  LO  WER 


COMMODORE  64  COMPUTER  $139. 9S 

You  po/  only  SI 39.95  when  you  order  the 
powerful  S-IK  COMMODORE  6i  COMPUTER!  LESS 
the  value  of  (he  SPECIAl  SOFTWARE  DISCOUNT 
COUPON  we  pack  wijh  your  computer  thai  ollows 
you  to  SAVE  OVER  S250  off  software  sole  prices  I ! 
With  only  5100  of  savings  applied,  your  net 
computer  cost  is  539.95!  I 

*  C12S  DOUBLE  SIDED  DISKS  79'  EA. 

Get  these  5'/>"  Double  Sided  Floppy  Disks 
speciolly  designed  for  the  Commodore  I2fl 
Computer  (1571  Disk  Drive).  100%  Certified. 
Ufatlma  Warranty.  Automotic  lint  Cleoning 
Liner  included.  1  Box  of  10  -  $9.90  (99'  eo.),  5 
Boxes  of  10  ■  54-1.50  (89'  eo.),  10  Boxes  ol  10 
-$79.00  (79' eo.). 

13"  COLOR  MONITOR  »139.4S 
You  pay  only  SI39.95  when  you  order  this  13" 
COLOR  MONITOR.  LESS  the  volue  of  the  SPECIAL 
SOFTWARE  DISCOUNT  COUPON  we  pock  with 
your  monitor  thol  ollows  you  lo  save  over  S250  off 
software  sole  prices! !  With  only  $100  of  savings 
oppded.  your  net  color  monitor  cost  is  only  $39.95. 
(16  Colors). 

Premtum  Ouallty  120-140  CPS 
Comitear  10X  Print'-'   *14S.OO 

corrioge,  120- 

double   strike 

(near   letter 


The  COMSTAR  I 
140   CPS,    9 
capabllH 


quality] 
matrix) 
morgin  se 
and     subsc 
grophics  on 
quality  ond 
twice   OS    mbi.r>! 


sbvo 
OVJ5 

^^i^    round    on 


'20  X  144  dot 
eft  ond  right 
with  super 
..otic,     block 
It  gives  you  print 
printers  costing 
(Centronics  PorolleS  Intertoce) 


List  $399.00  Sola  tKt.Oa. 

4  SLOT  EXPANDER  &  60  COLUMN  BOARD  itt.li 

Now  you  program  80  COLUMNS  on  the  screen  at 
one  time!  Converts  your  Commodore  64  lo  80 
COLUMNS  when  you  plug  in  the  80  COLUMN 
EXPANSION  BOARD!!  PLUS  4  slot  expander! 
Umltad  Ouantltlmt.  Sale  t44.f  3.  Coupon  $39. 95 

U  COLUMNS  IN  COLOR 
PAPERBOCK  WRITER  M  WORD  PROCESSOR  Ml.li 

This  PAPERBOCK  WRITER  64  WORD  PROCESSOR  is 
the  iinest  available  for  the  COMMODORE  64 
computer!  The  ULTIMATE  FOR  PROFESSIONAL 
Word  Processing.  DISPLAYS  40  or  BO  COLUMNS  IN 
COLOR  or  black  ond  white!  Simple  lo  operote. 
powerful  text  editing,  complete  cursor  ond 
insert/delete  key  controls  line  and  pofogroph 
insertion,  automatic  deletion,  centering,  margin 
settings  and  output  to  all  printers!  List  $99-00. 
SALE  tl9.95. 


|w«  pack  a  SPECIAL  SOFTWARE  DISCOUNT 
COUPON     with    avary     COMMODORE    M 

[computer,    disk    drive,    printer,    or 

I  MONITOR  wa  talll  Thli  coupon  oilowt  you 
I  to  SAVE  OVER  «150  OFF  SALE  PRICCSIl 

(Examples) 
PROFESSIONAL  SOFTWARE 

COMMODORE  64 

Hatn* 

Paperclip 
Cansjllont 
Leader  Board 
The  Print  Shop 
Holleys  Proiect 
PfOcHcak  (jprood  sheet) 
Voict  Command  Modulo 
NinePrinCBi  in  Amber 
Super  Bowl  Sundoy 
Flip  and  FMb  Oiik  Filer 
Pro  Joy  Stick 
PcrlyWare 
Dust  Cover 
Finoncia!  Planner 

Sylvia  Porler 
Hardball 
QhA  TroublAshoot  & 

Rapciir  Guide 


lift 

Sale 

Coupon 

S59.95 

$3i.9S 

529,95 

S59,95 

$49.95 

$39,95 

$39.95 

524.95 

522.95 

S44.95 

$17,95 

526.95 

S39.9S 

SII.95 

519.9S 

559.15 

519.95 

$14.95 

S79.95 

539.95 

514,95 

$32.95 

524.95 

S3), 95 

S35.O0 

$22.95 

519.95 

i24.95 

$14.95 

$12.95 

519.95 

$12.95 

$10.00 

S19.95 

J14.9S 

SI  1.95 

$  e.9S 

S  6.9S 

S  4.60 

$59.95 

$38.95 

535.95 

$59.95 

518.95 

516.95 

524.95     515.95     512.95 


3  over  100  coupon  items  in  our  catalog} 

Write  or  coil  for 
I  Sample  SPECIAL  SOFTWARE  COUPONl 


ATTENTION 

Computer  Clubs 

We  Offer  Big  Volume  Discounts 
CALL  TODAY! 


PROTECTO  WARRANTY 

All  Protecto's  products  carry  a  minimum  90  doy  warranty. 
If  anything  falls  within  90  days  from  the  dote  of  purchose, 
simply  send  your  product  to  us  vio  United  Parcel  Service 
prepoid.  We  will  IMMEDIATELY  send  you  o  replacement  at 
no  charge  vio  United  Porcel  Service  prepaid.  This  warranty 
proves  once  again  thol  W9  Lova  Our  CuMtomars. 


•  C11>  COMMODORE  COMPUTER  IIM.M 

You  pay  only  S289.00  tor  the  C128  computer  ond  I 
we  include  the  CI 28  Wordwrlter  Wordprocossor 
by  Timeworks  (Sale  S59.95),  Thus,  your  net  cost 
lor  the  C128  computer  is  only  $229.05. 
List  $349,00,  SALE  $2t«.00. 

340K  1571  COMMODORE 
DISK  DRIVE  *259.00 

Double  Sided,  Single  Disk  Drive  for  C-128  ollows  I 
you  to  use  C-12B  mode  plus  CPM  mode,  17  times 
faster  than  1541.  plus  runs  all  1541  formats. 
List  S349.00.  Sal*  ilSf  .04. 

SUPER  AUTO  DIAL  MODEM  •Sf.fS 

Eosy  10  use.  Just  plug  into  your  Commodore  64 
computer  ond  you're  ready  to  transmit  and 
receive  messages.  Easier  to  use  than  dialing  your 
telephone,  just  push  one  key  on  your  computer! 
Includes  exclusive  eosy  to  use  program  for  up  and 
down  loading  to  printer  and  disk  drives, 
B«tt  In  U.S.A.  List  $99,00,  SALE  »«.«$. 
Coupon  $74. 95. 

VOICE  SYNTHESIZER  *39.9S 

For  Commodore-64  computers.  Just  plug  it  in  and 
you  con  program  words  and  sentences,  adjust 
volume  and  pitch,  moke  talking  adventure  gomes, 
sound  action  gomes  ond  customized  talkies!! 
PLUS  (>19,95  volue)  TEXT  TO  SPEECH  progrom 
included  FREE,  just  type  a  word  ond  heor  your 
computer  talk  ^  ADD  SOUND  TO  "ZORK".  SCOTT 
ADAMS  AND  OTHER  ADVENTURE  GAMES!!  (Disk 
or  tope.)  list  $69,00.  SALE  M9.»S 

12"  MAGNAVOX  (NAP)  SO  COLUMN 
MONITOR  WITH  SOUND  *79.95 

Super  High  Resolution  green  screen  monitor.  80 

columns  x  24  lines,  easy  to  reod,  plus  speaker  for 

audio  sound  included,  Fonlostic  value, 

list  $129,00.  Sals  tTf.fS. 

[C!28  coble  $19.95,  C64,  Atari  coble  $9,95) 

PRINTER/TYPEWRITER 
COMBINATION  *229.9S 

"JUKI"  Superb  letter  quolity,  daisy  wheel 
printer/lypewriter  combination.  Two  mochines  in 
one  —  just  o  flick  of  the  switch.  12"  extro  large 
corrioge,  typewriter  keyboord.  outomotic  morgin 
control  onct  relocate  key,  drop  in  cassette  ribbon! 
(90  day  warranty)  Centronics  parallel  or  RS232 
seriol  port  built  in  (Specify)- 
List  $349.00.  SALE»M».»3.  (ltd.  Oty.) 

14"  RGB  &  COMPOSITE 
COLOR  MONITOR  »XS9.95 

Must  be  used  to  get  80  columns  in  color  with  80 
column   computers    lC12e   -    IBM    -   Apple).    (RGB 
Coble  $19.95)  Add  $14.50  shipping. 
List  $399,00.  SALE  $U9.f$. 


•  LOWEST  PRICES  •  IS  DAY  FREE  TRIAL 

•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL 


PHONE  ORDERS 

S  a.m.  -  8  p,nn-  C.S.T.  Weekdays 
9  a.m.  -  12  noon  C.S.T,  Soturdays 


•  H  DAY  FREE  REPLACEMENT  WARRANTY 

•  OVER  500  PROGRAMS  •  FREE  CATALOGS 


Add  $10.00  tor  shipping,  hondling  ond  insurance,  Illinois  residents 
please  odd  6 '/<  %  tax.  Add  520,00  for  CANADA,  PUERTO  RICO. 
HAWAII  ALASKA,  APO-FPO  orders,  Canadian  orders  must  be  in  U,S, 
dollars,  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT 
CANADA,  Enclose  Coshier  Check,  Money  Order  or  Personal  Check, 
Allow  I  4  days  for  delivery,  2  lo  7  days  for  phone  orders,  1  day  express 
moil!  Prices  £  Avoilability  subject  to  change  without  notice, 
VISA  .^  MASTER  CARD  —  C.O.D.  No.  C.O.D.  to  Conodo,  APO-FPO 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barhngton,  Illinois  60010 

312/382-5244  to  order 


% 
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COMPIiTEI's 

FIRST 
BOpK 

Cbmmodore 


ectroni(l 


Computer 
iPrqjects^ 


for  Coniinodorc  ;ind 
Personal  Coiiipiiicrs 


COMPUTEI's  First  Book  of  the 
Commodore  128 

A  spectacular  collection  of  articles  and  programs 
exclusively  for  the  Commodore  128  In  128  mode. 

Edited 

The  editors  at  COMPUTE!  Publications  have  col- 
lected some  of  the  best  games,  programs,  and  tu- 
torials for  the  Commodore  1 28  from  COMPUTE!  and 
COMPUTEI's  Gazette,  plus  some  never-before- 
published  articles  and  programs.  Learn  how  to  cre- 
ate windows,  program  sound,  and  make  disks 
autoload.  You'll  even  find  a  map  of  all  the  important 
memory  locations.  There's  something  for  every  128 
user.  All  programs  run  in  128  mode.  A  disk  is  avail- 
able which  includes  programs  in  the  bool<,  $12.95. 

$14.95       ISBN  0-87455-059-9 


h. 


Electronic  Computer  Projects 
Learn  how  to  build  all  kinds  of  new  devices  to 
Interface  with  your  computer  from  inexpensive, 
available  parts. 

For  the  Commodore  64,  128,  VIC,  and  any  eight-bit 
Atari  personal  computer. 
Soori  Sivakumaran 

This  introduction  to  digital  electronics  and  computer 
interfacing  is  the  easy  way  to  learn  how  computers 
interact  with  the  outside  world.  Using  a  Commodore 
64,  128,  VIC,  or  any  eight-bit  Atari  computer  and 
Electronic  Computer  Projects,  you'll  be  guided 
through  the  steps  to  building  a  joystick,  light  pen, 
game  paddle,  and  numerous  other  devices.  And 
since  each  project  is  independent  from  the  others, 
you  can  choose  only  those  projects  that  interest  you. 
All  the  projects  can  be  built  at  home  and  most  re- 
quire fewer  than  half  a  dozen  parts. 

$9.95       ISBN  0-87455-052-1 


i 


Visit  your  local  book  or  cortiputer  store  for  these  new  titles.  Or  order  directly  from 
COMPUTE!  Books.  Call  toll-free  800-346-6767  (in  NY  212-887-8525)  or  write   |       t   I 
COMPUTE!  Books.  P.O.  Box  5038.  F.D.R.  Station,  New  York,  NY  10150.       |   i   ! 

Please  include  $2.00  per  book  (S5.00  air  mail)  for  shipping  and  handling.  NC  residenlis 
add  4.5  percent  sales  tax.  Allow  4-6  weeks  from  receipt  of  order  for  delivery. 


COMPUTE!  Publications Jnc.® 

part  ot  ABC  CcxiSumer  MoQQj'nes.  inc  ^^^r 


One  o^  m©  ABC  pubJisrif^g  Conioonifls   ■     j 


compute!  blooks'are  available  in  the  U.Kl,  Eui'opeJthe  Lliddle 
East,  and  Africa  from  Holt  Saunders,: Ltd.,  I  St.  Anne's  Road, 
Eastbourne,  East  Sussex  BN21  3UN,  England;  and  in  Canada 
from  McGraw-Hill,  Ryerson  ltd.,  330  Progress  Ave.,  ^Scarborough. 
Ontario,  Canada  M IP  2Z5.  ;    i         ,     ]    \    '    ',    \    ,  A    \     . 


Readers  Feedback 


The  Editors  and  Readers  of  COMPUTE! 


//  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27W3.  Due  to  the  volume 
of  mail  toe  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


The  Ideal  BASIC  Style 

Some  time  ago  I  read  a  letter  in  your 
magazine  regarding  crunching  of  pro- 
gram listings  and  the  effect  this  has  on 
readability.  You  replied  that  this  was  to 
save  memory  and  magazine  space.  I 
would  like  to  suggest  a  reasonable  com- 
promise between  readability  and  the 
elimination  of  spaces.  In  my  view,  any 
statement  that  juxtaposes  two  letters 
(for  instance,  FORT  =  1  TOl  0  or  IFS  =  5) 
would  benefit  greatly  from  extra  spaces 
(FOR  T  =  l  TO  10  or  IF  S  =  5).  But  if  a 
number  follows  a  letter  (as  in 
GOTO600  or  THEN470),  the  statement 
is  understandable  even  without  an  ex- 
tra space.  I  think  DATA  should  always 
have  a  following  space  so  the  first  value 
stands  out  clearly.  You  are  often  incon- 
sistent in  this,  even  within  the  same 
program  listing.  As  to  multiple  state- 
ments in  one  line,  this  in  itself  creates 
no  problems  and  is  necessary  in  some 
cases.  But  I  don't  believe  that  complete- 
ly unrelated  statements  should  be  put 
on  the  same  line  simply  to  fill  up  the 
line. 

Line  numbering  is  another  area. 
You  use  the  time -honored  decade  num- 
bering (line  increments  of  ten),  which  is 
fine  when  developing  a  program.  Fin- 
ished programs  are  usually  renumbered 
for  neatness,  but  I  don't  see  why  nine 
skipped  numbers  are  necessary.  I  sug- 
gest that  you  use  every  other  number 
instead  (1,  3,  5,  and  so  on).  This  would 
allow  someone  to  insert  a  STOP  or 
GOTO  while  checking  for  typing  errors 
or  making  minor  alterations.  The  big 
advantage  of  this  system  is  that  decade 
numbers  could  have  special  meanings 
as  important  entry  points  or  the  begin- 
ning of  a  new  group  of  closely  related 
statements.  For  example,  a  complex 
FOR-NEXT  loop  might  use  several 
lines,  then  jump  to  the  next  decade  line 
number  for  a  new  group  of  related 


statements.  It  would  be  much  easier  to 
follow  and  understand  the  flow  pattem. 
I  also  feel  there  could  be  at  least 
partial  standardization  of  some  of  the 
most  common  variable  names.  For  in- 
stance, the  variables  I,  J,  and  K  are 
ordinarily  used  as  "junk"  variables 
(counters  within  loops,  and  so  on).  The 
variables  X  and  Y  are  frequently  used  to 
specify  horizontal  and  vertical  coordi- 
nates. But  many  others  are  commonly 
used  as  well:  SA  for  starting  address,  EA 
for  ending  address,  CK  for  checksum,  and 
so  forth.  You  could  publish  a  list  of 
suggested  variable  names  and  encour- 
age programmers  to  stick  to  it. 

Don  R.  King 

As  long  as  programmers  use  BASIC,  there 

will  be  discussions  about  what  sort  of 
style  and  structure  BASIC  programs  ought 
to  have.  The  reason  for  the  controversy  is 
familiar.  BASIC  imposes  few  structural 
constraints  on  the  programmer,  so  the 
language  is  easy  to  learn  and  works  well 
for  improvisational  programming  and 
quick  experiments.  But  its  lack  of  struc- 
ture also  makes  it  possible  to  write  tan- 
gled, illogical  "spaghetti"  code.  Since 
BASIC  doesn't  force  you  into  a  predeter- 
mined mold,  a  program  can  take  nearly 
any  form.  More  structured  programming 
languages  such  as  Pascal  generate  more 
readable  code,  but  demand  more  fore- 
thought on  the  programmer's  part. 

Most  of  the  programs  we  publish  are 
submissions  from  readers.Generally,  we 
modify  these  programs  only  to  eliminate 
any  bugs  thai  appear  during  testing  or  to 
add  functional  improvements.  Any  time 
you  change  someone  else's  program,  you 
increase  the  likelihood  of  inadvertently 
creating  new  bugs  which  even  the  author 
may  not  have  anticipated.  Given  the 
number  of  programs  we  publish  and  the 
constraints  of  monthly  deadlines,  it's  txot 
practical  for  us  to  rewrite  working  pro- 
grams merely  to  improve  their  readability. 

A  carefully  planned  numbering 
scheme  can  add  to  a  program's  readabili- 
ty. But  our  programs  are  meant  to  be  typed 
in  from  a  printed  listing  as  well  as  stud- 
ied. So  we  need  to  do  everything  possible 
to  help  readers  type  the  programs  without 
errors.  Numbering  in  regular  increments 
makes  it  easier  to  keep  your  place  in  the 
program  than  if  the  increments  changed 
at  unpredictable  ititemals.  Uniform  num- 


bering also  helps  readers  spot  lines  that 
have  been  left  out  altogether  (a  typing 
error  that  no  proofreader  program  can 
catch).  However,  sometimes  even  the  sim- 
ple act  of  renumbering  a  program  can 
introduce  new  bugs — as  has  happened  to 
us  in  the  past. 

It's  also  true  that  if  everyone  fol- 
lowed the  same  stylistic  conventions, 
BASIC  programs  would  be  more  readable. 
The  difficult  part  is  getting  programmers 
to  go  along  with  the  conventions  you 
choose,  especially  considering  that  each 
version  of  BASIC  has  its  own  peculiari- 
ties. For  instance.  Commodore  BASIC 
doesn't  require  spaces  after  keywords  (and 
omitting  spaces  speeds  program  execu- 
tion), but  some  other  versions  of  Microsoft 
BASIC  insist  on  a  separating  space.  Other 
BASICS,  such  as  Atari  BASIC,  automati- 
cally insert  spaces  for  readability  if  you 
leave  them  out. 

Different  dialects  of  BASIC  also  in- 
clude different  keywords.  For  instance, 
NAME  is  a  legal  variable  name  in  Com- 
modore BASIC,  but  it's  treated  as  a  re- 
served word  in  IBM  BASICA  and  Amiga 
BASIC.  In  Commodore  and  Apple  BASICs, 
only  ike  first  two  characters  of  the  vari- 
able name  are  significant,  and  you  may 
not  embed  keywords  in  variable  names. 
But  IBM,  Atari,  and  Amiga  BASICs  permit 
long,  descriptive  variable  names  such  as 
MousePosition  or  MenuFlag  which  can 
include  embedded  keywords.  The  list  of 
differences  goes  on  and  on.  Given  the 
diversity  among  BASIC  dialects  and  the 
absence  of  standardization,  any  list  of  pre- 
ferred variable  names  would  have  to  be 
exceedingly  general  and  geared  toward 
the  lowest  common  denominator. 

As  time  goes  by,  Microsoft  BASIC 
seems  to  be  taking  over  as  the  de  facto 
standard  for  the  language.  Newer,  more 
powerful  computers  such  as  the  Macin- 
tosh, Atari  ST,  and  Amiga  all  offer  ver- 
sions of  BASIC  that  more  closely  resemble 
IBM  BASICA.  With  the  exception  of 
graphics  and  sound  statements,  which  are 
necessarily  hardware-specific,  a  program 
that  runs  on  the  IBM,  Mac,  or  Amiga  will 
probably  run  on  any  of  the  others  with 
only  slight  modifications.  If  this  trend 
continues,  we  may  someday  reach  the 
point  where  BASIC  style  becomes  more 
homogeneous. 
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BEFORE  YOU  BUT  AMSURANGE, 

INE  THE  EVIDENCE. 


^:fiT 


An  agenf  who  woti(s  for  one 
company  can  only  offer  you  the 
policies  that  his  company  sells. 


•^i/i]i^iji«ifr«/di 


Agent  represents  several 

companies.  So  your  Independent 

Agent  con  help  you  select  the  right 

coverage  at  the  right  price 

because  there  are  more 

policies  from  v/hich  to  choose. 

The  evidence  is  clear. 


X 


\  . 


THE  MORE'THAN-ONE-COMPANY  [   your/ independent' 
INSURANCE  AGENT  ^  ^"^^^^"^^ ' 

You'll  Find  the  Independent  Insurance  Agent  nearest  you  in  the  Yellow  Pages. 


Paster  Fractals  In  Fortti 

I  enjoyed  reading  Paul  Carlson's  article 
on  fractal  graphics  for  the  IBM  PC/PCjr 
(COMPUTE!,  March  1986).  His  explana- 
tions were  very  clear.  But  it  must  have 
been  a  'real  trial  for  him  to  develop  the 
BASIC  version  of  the  "Eight  Thousand 
Dragons"  program.  We  would  like  to 
show  the  beauty  of  fractals  when  writ- 
ten with  a  language  that  supports  recur- 
sion. Here  is  an  example  of  Forth  code 
that  does  the  same  thing.  It's  written  for 
Machl,  our  Forth  compiler  for  the  Ap- 
ple Macintosh  and  Atari  ST.  The  execu- 
tion time  for  a  fourteenth-degree 
dragon  is  only  three  minutes. 


Reading  Ttie  Atari  Toucti 
Tablet  In  BASIC 

I  am  currently  working  on  an  Atari 
program  that  lets  me  create  high- 
resolution  drawings  in  graphics  mode 
15.  However,  the  drawing  should  be 
done  with  the  Atari  Touch  Tablet.  How 
can  a  program  read  the  Touch  Tablet 

coordinates?  „  .     ,,. 

Peter  Hmz 

Reading  coordinates  from  the  Atari  Touch 
Tablet  is  very  easy  in  Atari  BASIC.  The 
Touch  Tablet  returns  the  same  values  as 
paddle  controllers,  and  Atari  BASIC  con- 
tains a  function  called  PADDLE  for  read- 
ing these  controllers.  Use  PADDIE(0)  to 


''    it    File    I:(ti1    Templates    Mist    Utilities 


MflCHul.t 


ok  <B>. 


:  Drag  RECURSIVE  (  xl  yl  x2  y2  x3  y3  k  I  x4  y4  x5  yS  } 
PAUSE 

k  0=  (i£  k=0  just  draw  and  return) 

IF  (else  continue  breaking  lines  down) 

k  1 >  x4 

xl  x2  +  2/  y2  yl  -  2/ >  x4 

yl  y2  -I-  2/  x2  xl  "  2/  -I-  ->  y4 


THEN  ; 


x2  x3  -h  2/  y3  y2  -  2/ 
y2  y3  +  2/  x3  x2  -  2/  - 
xl  yl  x4  y4  x2  y2  k  Drag 
x2  y2  x5  y5  x3  y3  k  Drag 


—  >  x5 

->yS 


iDragon  {  iters  — } 
CLS 

100  190  CALL  MoveTo 
100  190  228  62  356  190  iters  Drag 


(  '14  dragon'  gives  the  best  results) 


(  place  pen  at  begitming) 
(  start  with  initial  seed) 


Terry  Noyes 

Although  recursive  routines  (program 
segments  that  call  themselves)  are  ordi- 
narily taboo  in  BASIC,  they're  not  only 
feasible,  but  encouraged  in  other  lan- 
guages such  as  Logo  and  Forth.  Besides 
speeding  execution,  recursion  produces 
compact,  elegant  code,  as  this  example 
shows.  Thanks  for  the  demonstration. 


read  the  horizontal  position  of  the  stylus 
on  the  tablet,  and  PADDLEW  to  read  the 
vertical  position  (assuming  that  the  tablet 
is  plugged  into  controller  port  1).  Both 
functions  return  values  ranging  from  1  to 
228.  When  nothing  is  touching  the  tablet 
surface,  these  functions  return  the  value 
228. 

Reading  the  Touch  Tablet  buttons  is 
just  as  easy.  Use  the  PTRIG(0)  function  to 


read  the  left  button,  and  PTRIGd)  to  read 

the  right  button  (again,  assuming  that  the 
tablet  is  plugged  into  port  1).  When  a 
button  is  pressed,  these  functions  return  a 
value  of  0.  Otherwise,  they  return  a  value 
ofl. 

The  button  on  the  Touch  Tablet's 
stylus  works  a  little  differently.  To  detect 
this  button  press,  use  the  STICK(0)  func- 
tion (normally  intended  for  reading  a  joy- 
stick). If  the  stylus  button  is  pressed, 
STICK(0)  returns  a  value  of  14.  Otherwise, 
it  returns  the  value  15. 

The  following  example  program  prints 
the  tablet  coordinates  on  the  screen  along 
with  messages  when  any  of  the  buttons 
are  pressed: 

BH  10  X=PfiDDLE  C0)  :  Y  =  PflDDLE  (1 

) 
111120  PRINT  X,Y 
ID  30  IF  PTRI6(0)=0  THEN  PRI 

NT  "LEFT  BUTTON  PRESSE 

D" 
NI  40  IF  PTRIB<1)=0  THEN  PRI 

NT  "RIGHT  BUTTON  PRESS 

ED" 
HL  50  IF  STICK(0>  =  14  THEN  PR 

INT  "STYLUS  BUTTON  PRE 

SSED" 
AA  60  BOTO  10 


Safe  Zones  In  IBM  BASIC 

Is  there  any  way  to  store  a  few  charac- 
ters or  flags  in  the  IBM  PC's  memory 
that  will  survive  the  BASIC  RUN  com- 
mand? I  want  my  program  to  be  able  to 
"learn"  as  it  runs  and  remember  what  it 
has  learned  each  time  it  is  run. 

H.  Beck 

IBM  BASIC'S  CLEAR  command  gives  you 
the  ability  to  create  a  safe  area  of  RAM  of 
almost  any  size.  Besides  deleting  all  vari- 
ables, CLEAR  controls  the  amount  of 
memory  available  to  BASIC.  By  adding  a 
comma  and  a  parameter  to  the  CLEAR 
command,  you  can  make  the  BASIC  work- 
space smaller  than  usual,  reserving  the 
extra  memory  for  yourself  The  workspace 
is  initially  65,536  bytes,  but  it's  easy  to 
reserve  some  memory  at  the  top  of  that 
space.  Use  this  format: 

CLEAR  ,workspace 

where  workspace  is  a  number  less  than 
65536.  To  calculate  the  correct  value,  sub- 
tract from  65536  the  number  of  bytes  you 
want  to  protect.  For  iristance,  the  com- 
mand CLEAR  ,65280  reserves  the  last  256 
bytes  (65536  -  256  =  65280)  of  BASIC 
workspace  for  your  use. 

When  you  type  RUN  after  a  CLEAR 
statement  like  this,  the  size  of  the  work- 
space is  reset  to  its  default  but  the  data  in 
the  reserved  area  is  not  affected.  As  long 
as  the  next  program  begins  with  a  similar 
CLEAR  statement,  it  can  PEEK  into  the 
reserved  area  and  find  the  values  that  the 
previous  program  POKEd  there.  Here's  a 
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simple  program  that  stores  some  values  in 
a  256-byte  reserved  area: 

10  CLEAR,65280 
20  FOR  A -0  TO  255 
30  POKE  A +  65280, A 
40  NEXT 

After  you  run  the  program,  enter  and  run 
this  program  to  read  the  stored  values 
back. 

10  CLEAR,6S280 

20  FOR  A  =  0  TO  255 

30  PRINT  PEEK  (A +  65280) 

40  NEXT 


Scanning  The  128's  ALT  Key 

Please  tell  me  how  to  read  the  ALT  key 
on  the  Commodore  128. 

J.  C.  VoUmer 

The  128'$  ALT  key  cannot  be  polled  like 
the  other  keys.  Instead,  your  program 
must  PEEK  location  211,  where  the  sys- 
tem stores  information  about  five  special 
keys:  SHIFT,  CONTROL,  ALT,  CAPS 
LOCK,  and  the  Commodore  key.  When 
you  press  one  of  these  keys,  it  sets  a 
certain  bit  in  this  location: 


Key 

Bit 

FEEK(211)  Value 

SHIFT 

0 

1 

Commodore 

1 

2 

CONTROL 

2 

4 

ALT 

3 

8 

CAPS  LOCK 

4 

16 

Thus,  if  PEEKdW  equals  8,  you 
knotv  the  ALT  key  is  pressed.  Since  each 
key  has  its  own  signal  bit,  the  values  from 
location  211  are  additive.  If  PEEK(2n) 
equals  9,  for  instance,  both  SHIFT  and 
ALT  are  pressed.  When  SHIFT  and  CON- 
TROL are  pressed,  location  211  holds  5, 
and  so  forth. 


Correction  For  Casio  Review 

I  enjoyed  reading  your  January  1986 
review  of  The  Music  Shop  for  MIDI  and 
the  Casio  C2-101  synthesizer.  In  fact,  I 
became  inspired  and  bought  the  same 
system,  after  having  exhausted  the  64's 
musical  capabilities.  You  mentioned  a 
problem  with  accessing  all  the  features 
of  the  CZ-101  synthesizer.  Perhaps  I 
obtained  an  updated  version  of  The 
Music  Shop  for  MIDI  because  I  have  not 
had  the  same  experience.  All  48  timbres 
can  be  accessed  (the  basic  presets  plus 
those  in  internal  memory  or  cartridge 
memory).  In  addition,  four-voice  poly- 
phonic music  is  possible  within  the  pro- 
gram using  the  programmable  MIDI 
features  (channeling  the  four  solo 
voices).  Casio's  COSMO  series  of  syn- 
thesizers, which  includes  the  CZ-101,  is 
capable  of  playing  up  to  eight  timbres 
(four  on  the  CZ-101)  on  a  single  slave 
unit.  Have  you  looked  into  other  types 
of  MIDI  software  presently  available? 


DESIGNING  YOUR  OWN 
COMPUTER  GAMES 
JUST  BECAME  EASY 

Have  a  great  idea  for  a  game?  Don't  have 
enough  time  to  learn  how  to  turn  it  into 
software?  Your  magic  wand  has  just  arrived. 
Activision  proudly  presents  Garry  Kitchen's 
GameMaker:  The  Computer  Game  Design 
Kit™  We've  packed  five  professional-quality 
design  tools  into  one  easy-to-use  program. 


SceneMaker:  Design  the 
set.  Select  from  prepro- 
grammed backgrounds 
like  space,  jungle  or 
river  scenes  or  create 
a  world  of  your  own. 


MusicMaker:  Compose 
the  score.  Set  the  mood 
with  just  the  right  music 
or  create  triumphant 
interludes. 


' 
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SpriteMaker:  Who's 
who  and  whaf  s  what. 
Create  and  animate  the 
characters  and  objects 
that  move  across 
the  screen. 


SoundMaker:  What  do 
you  get  when  you  cross  a 
"clunk!"  with  a  "boom?" 
From  explosions  to  train 
whistles— smash,  blast 
and  whoosh  your  way 
into  a  smorgasbord  of 
sound  efTects. 


GmyKDllKiA 


GameMater"  ^ 


'  (hull  ql 
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The  Editor:  The  grand 
finale.  Look  at  all  the 
components,  choose 
some  and  edit  others, 
polish  it  and . . .  bring  it 
to  life.  We've  even  given 
you  a  blank  disk  so  you 
can  send  it  to  a  friend . . . 
or  publisher 


GameMaken  Unleash  the  power  of  your 
computer— and  your  imagination.  Then, 
revel  in  the  creation  of  a  true  original . . . 
a  game  of  your  own. 


ACTIVISION 

CREATIVIT-.      ■'■:'■)   HVAKL 


For  the  Apple  II  series. 
Commodore  64  or  128  and 
compatible  computers. 

For  Uic  (kalcr  ncaea  you  call  (800)  227-9759  (in  CalLfomia,  (415)  9«MM10  wxkdas^  only). 

Apple  isa  tiademari  dT  Apple  Computer.  Comnxidorc  is  a  irademaji  of  Commodore  Bccuomcs  Umiicd. 

Aaivjaon  is  Itie  regiaensd  tratfcmart;  of  Aoivjsioa  Inc.  ©  1986  Aaivision.  Inc.  EO.  Boi  728X  Mounlain  View,  CA  W039 


And  your  Earls  and  Viscounts.  If  you've 
got  royal  ancestors,  we  have  the  noble 
software  that  can  help  you  trace 
them  down. 

Family  Roots  and  your  Apple,  IBM, 
Commodore,  Kaypro*  and  many  others, 
offer  individual  and  group  sheets,  charts, 
name  indices,  general  search  and  text 
capabilities.  Adapts 

Put  up 


your 
dukes! 


Roofs 


to  most  disk  drives, 
printers,  and  screens. 
You  get  more  utility 
programs,  plus  lots 
of  personal  control. 
A  comprehensive 
(new)  manual 
is  included. 

All  for  just  $185. 

Write  or  call  today 
for  more  infor- 
mation and  a 
free  brochure. 

Quinsept,  Inc. 

P.O.  Box  216 
Uxington,  MA  02173 
(617)  641-2930 

American  Express, 
Visa,  ^d  MasterCard 
gladly  accepted. 

'  Trademarks  for  Apple 
Computer  Inc.,  Intervatianal 
Bui/nfSS  ^^achmes,  CBM.  Inc. 
and  Digital  Research. 


POWER  SYSTEM 

FULL  Back-Up  Computer 
Protection! 

as  low  as  I 


Transfer  tfme  to  emergency  power  10  Milli- 
seconds. Self-contained  with  enclosed  gel  eel 
battery.  425-Watt  and  200-Watt  23  annpere 
models  operate  up  to  35  minutes  allcywing 
ample  time  for  sale  shutdown!  3-Way  AC  line 
filter  stops  transient  spikes  and  surges.  4 
Receptacles.  Automatic  regulated  battery 
charger.  Output  voltage  ll7vAC,  60  hz.  fre- 
quency controlled  ±  Vz  cycle. 
D  200-Watt  (10  ampere  hours)  only  S359 
D  200-Watt  (28  ampere  hours)  only  $429 
a  425-Watt  (28  ampere  hours)  only  S599 

Order  toll  free  1 -800-662-5021 

IN  ILLINOIS,  CALL  1-31Z-B48-2191  OR  MAIL  COUPON 
rNDUS  "tOOL,"730  W~Lake'sireet 
Depl.  CI,    Chicago,  IL  60606 

Enclosed  is  $ or  charge  on 

D  MasterCard  or  D  Visa    Expires 

Card  no 

Send  model  # 


Name   

Company  _ 
Address  _ 
City 


Please  continue  your  articles  on  com- 
puter music. 

Eric  Habeck 

Thanks  to  you  and  to  Don  Williams  (the 
programmer  who  created  The  Music 
Shop  and  The  Music  Shop  for  MIDU  for 
alerting  us  to  the  misstatement.  The  64  is 
very  popular  with  musicians  and  sound 
enthusiasts  because  of  its  low  cost  and 
built-in  sound  capabilities.  As  the  MIDI 
standard  becomes  more  widely  accepted, 
we're  likely  to  see  even  more  in  the  way  of 
music  software  for  the  64.  We'll  continue 
to  review  new  products  as  time  and  space 
permit. 

Customizing  SpeedScript  3.0 

The  "SpeedScript  Customizer"  program 
that  appeared  in  the  September  1984 
issue  of  COMPUTES's  GAZETTE  allows 
you  to  change  the  default  settings  and 
formatting  commands  in  SpeedScript  1.0 
to  fit  your  own  preferences.  But  that 
program  doesn't  work  with  SpeedScript 
3.0  or  3.2.  Do  you  have  an  up«late  of  the 
program  or  the  necessary  POKEs  to 
allow  the  same  customization  for  the 
most  recent  versions  of  SpeedScript? 

Bruce  Patten 

It  just  so  happens  that  another  reader 
wrote  in  with  the  very  information  you're 
seeking: 

"SpeedScript  Customizer"  doesn't  work 
with  SpeedScript  3.0  or  3.2.  But  I  have 
discovered  the  POKEs  for  customizing 
all  of  the  same  parameters  for  the 
newest  versions  of  SpeedScript.  Here 
are  the  default  (normal)  values  and  the 
locations  that  control  them; 

Default 
Location 


5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 

5730 
5731 

5732 
5733 
5734 
5735 
5736 
5737 


Value  Parameter 

5  Left  margin 

75  Right  margin 

66  Page  length 

5  Top  margin 

58  Bottom  margin 

1  Spacing 

1  Wait  (l=go  ahead) 

1  @  start  numbering 
pages  at  (LSB) 

0  (MSB) 

1  7  starting  printing  at 

page  (LSB) 
0  (MSB) 

80  X  columns  across 

27  1  printkey  1 

14  2  printkey  2 

15  3  printkey  3 
18  4  printk^  4 


To  customize  your  program,  load 
SpeedScript  3.0  or  3.2  into  memory,  then 
POKE  the  desired  values  into  the  ap- 
propriate memory  locations.  For  ex- 
ample, POKE  5722,3  makes  the  left 
margin  setting  default  to  3  instead  of  5. 
Then  save  the  program  using  a  different 
name.  For  instance,  I  have  a  frequent 


need  to  print  postcards,  so  I  set  the  left 
margin  at  3,  right  margin  at  35,  columns 
at  40,  top  margin  at  3,  bottom  margin  at 
18,  and  page  length  at  2.  If  you  want  to 
start  numbering  pages  or  start  printing 
pages  at  a  page  lower  than  256,  POKE 
the  desired  value  in  the  first  of  the  two 
locations  indicated.  For  instance,  to 
start  numbering  pages  at  page  3,  you 
would  POKE  5729,3.  To  start  at  a  page 
higher  than  255,  you  must  POKE  two 
values  in  low  byte/high  byte  format. 
The  low  byte  of  the  value  goes  into  the 
lower  location. 

Allen  Perkins 

Thank  you  for  the  information.  As  men- 
tioned in  the  original  SpeedScript  article, 
most  of  these  settings  have  to  do  with 
formatting  hardcopy  printouts. 


Apple  RESET  Vectoring 

Is  there  any  way  to  make  the  Apple  II 
jump  to  a  specific  machine  language 
subroutine  after  the  RESET  key  has 
been  hit? 

Jose  A.  Colon  Olivo 

This  can  done  by  changing  the  two-byte 
RESET  vector  at  location  1010  ($03F2). 
The  most  direct  way  to  alter  the  vector  is 
to  POKE  the  starting  address  of  your  ma- 
chine language  program  into  locations 
1010-1011  in  low  byte/high  byte  format, 
then  update  these  pointers  with  CALL 
-1169.  When  you  hit  RESET,  the  Apple 
checks  the  vector,  goes  to  the  indicated 
location,  and  runs  your  program.  As  an 
example,  suppose  you  wish  to  execute  the 
following  routine  which  prints  an  A  on 
the  screen  upon  RESET: 

0300  LDA  #$CI 
0302  JSR  SFDFO 
0305  JMP  $03D0 

The  first  step  is  to  determine  the  high 
and  low  bytes  of  the  starting  address  in 
decimal.  The  hexadecimal  number  $0300 
is  expressed  as  decimal  768.  So,  the  high 
and  low  bytes  of  the  starting  address  are: 

HI  =  INT(768/2S6)=3 
LO  =  768-HI'256  =  0 

Next,  POKE  the  address  values  in 
1010  and  1011,  and  execute  the  CALL  to 
update  the  pointers: 

POKE  1010,LO 
POKE  1011,HI 
CALL  -1169 

When  you  hit  RESET,  the  routine 
executes.  Notice  that  the  ML  routine  ends 
with  JMP  $03D0.  Because  the  routine  is 
jumped  to  directly,  it  leaves  no  return 
address  on  the  microprocessor's  stack.  If  it 
had  ended  with  an  RTS,  you'd  wind  up 
back  in  the  machine  language  monitor 
after  it's  done.  To  avoid  this  unwanted 
result,  you  must  exit  with  a  JMP  to  the 
BASIC  soft  reentry  point  at  S03D0. 


Zip. 


SUPPORT  FROM  COMPUTE!  BOOKS 


Everything  for  the  Amiga.  From  BASIC  beginner's  guides  to  advanced  programming 
handboolts,  COMPUTE!  offers  you  information-packed  tutorials,  reference  guides, 
programming  examples,  ready-to-enter  applications,  and  games  to  help  you 
develop  your  computing  skills  on  Commodore's  Amiga. 
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Reference 


GOMPUTEI-s  AmlgaDOS 
Reference  Cutde 

Arlan  R.  Levitan  and  Sheldon  Leemon 
A  comprehensive  tutoria!  ard  reference  guide 
to  the  powerful  AmigaDOS — the  operating 
system  underlying  the  Workbench  and 
Intuition — this  book  offers  information  useful  to 
every  Amiga  owner.  It  defines  and  illustrates  all 
DOS  commands,  and  shows  you  how  to  create 
file  directories,  access  peripherals,  run  batch 
file  programs,  and  avoid  "disk  shuffle."  The 
screen-  and  line-oriented  text  editors  are 
explained  in  detail.  Numerous  examples  and 
techniques  explain  how  to  use  AmigaDOS  to 
make  operating  your  Amiga  both  convenient 
and  efficient. 
$  1 4.95     ISBN  0-87455-0'l7-5 

Elementary  Amiga  BASIC 

C.  Regena 

Here's  your  Introduction  to  the  new  and 
powerful  BASIC  on  the  Amiga  personal 
computer.  The  Amiga's  impressive  graphics, 
animation,  and  sound  can  be  unlocked  with  the 
right  commands,  and  BASIC  is  the  place  to 
start.  Complete  descriptions  of  Amiga  BASIC'S 
commands,  syntax,  and  organization  take  you 
from  the  beginner  level  to  a  full-fledged 
programmer.  Plus,  the  book  offers  you  ready-to- 
type-ln  programs  and  subroutines  while 
showing  you  how  to  write  your  own  programs. 
There  is  a  disk  available  which  includes  the 
programs  in  the  boolc,  S !  2.95.  This  title  is  also 
available  as  a  book/disk  combination  for  $19.95 
1057-2). 
$14,95     ISBN  0-8'7455-04 1-6 


COM)>UTEI's 


PROGRAMMER'S 
GUIDE 


COMPUTEis  Amiga 
Programmer's  Guide 

Edited 

Your  tutorial  and  reference  manual  to 
AmigaDOS,  BASIC,  Intuition,  and  other 
important  software  tools  whIcK  accompany  the 
new  Amiga,  COMPDTEI's  Amiga  Programmer's 
Guide  Is  a  clear  and  thorough  guide  to  the 
inner  workings  of  this  fascinating  new- 
generation  computer.  The  great  speed  of  its 
68000  microprocessor,  coupled  with  the 
versatility  of  the  Amiga-specific  graphics  and 
sound,  makes  the  Amiga  one  of  the  most 
powerful  computers  available  today. 
This  book  is  the  key  to  accessing  the  Amiga's 
speed  and  power, 
S  16.95     ISBN  0-87455^)28-9 

Advanced  Amiga  BASIC 

Tom  R.  Hallhill  and  Charles  Brannoh 
This  guide  to  applications  programming  on 
Commodore's  new  Amiga  contains  everything 
an  intermediate  programmer  requires  to  begin 
creating  sophisticated  software  on  this  powerful 
machine,  including  several  ready-to-lype-in 
programs.  Clear,  yet  comprehensive 
documentation  and  examples  cover  advanced 
BASIC  commands,  designing  graphic 
applications,  generating  sound  and  music,  using 
the  Amiga's  built-in  speech  synthesizer, 
creating  a  user  interface,  and  programming  the 
computer's  peripherals.  There  is  a  disk 
available  which  includes  the  programs  In  the 
book,  SI 5.95.  dune  release! 
SI 6.95     ISBN  0-87455-045-9 


Look  for  tiiese  books  at  your  local  book  or  computer  store. 

Or  order  directly  from  COMPUTE!. 

Calf  toll-free  1-800-346-6767  (In  NY  212-887-8525). 


COMPUTErs 

GUIDE  TO  THE 


COMPlTTEI's  Beginners  Guide  to 
the  Amiga 

Dan  McNeill 

Written  in  a  lively  and  entertaining  style,  this 
book  teaches  you  everything  a  beginner  needs 
to  know  to  get  started  quickly  with  the  Amiga 
from  Commodore.  You  will  learn  about  setting 
up  the  system,  all  the  most  popular  types  of 
software,  and  details  about  the  hardware. 
Si 6,95     ISBN  0-87455-025-4 

Inside  Amiga  Graphics 

Sheldon  Leemon 

The  Amiga.  Commodore's  powerful  new 
computer,  is  an  extraordinarily  impressive 
graphics  machine.  Easy  to  use,  the  Amiga  can 
produce  color  graphics  and  excellent  animation. 
You'll  find  thorough  descriptions  of  the 
computer's  abilities  and  the  hardware  required 
to  create  a  complete  graphics  system.  Software, 
too,  is  central  to  the  Amiga's  power,  and 
complete  tutorials  show  you  how  to  get  the 
most  from  the  machine.  Ijune  releasel 
SI6.95     ISBN  0-67455-040-8 


COMPUTEI's  Kids  and  the  Amiga 

Edward  H.  Carlson 

The  latest  in  this  bestselling  series  written  by 
Edward  Carlson,  COMPUTErs  Kids  and  the 
Amiga,  will  acquaint  you  with  BASIC  Over  30 
sections — all  with  instructor  notes,  lessons, 
assignments,  and  lively  illustrations— entertain 
and  amuse  you  as  you  learn  to  program  your 
new  computer.  Clear  writing  and  concise 
examples  make  It  easy  for  anyone — children 
and  adults  alike— to  painlessly  learn  BASIC. 
IMay  releasel 
$14.95     ISBN  0-87455-048-3 

Please  allow  4-fi  weeks  for  delivery 
after  your  order  ts  received. 


COMPUTEI  Publicotionsjnc, 

Porf  of  ABC  Consumer  MogoiThas.  inc 
One  of  trie  ABC  PubHshmg  Comiicrws 
825  7in  Avenue.  6tri  Ftoor.  r^ek^v  vo,'i(   nv  100T9- 


COMPUTE*  books  are  available  in  the  U.K.,  Europe,  the  Middle  East,  and 
Africa  from  Holt  Saunders.  Ltd..  I  St.  Anne's  Road,  Eastbourne,  East 
Sussex  BN2I  3UN.  England,  and  in  Canada  from  McGraw-Hill,  Ryerson  Ltd., 
330  Progress  Ave,,  Scarborough.  Ontario,  Canada  MiP  2Z5. 


The  same  technique  can  be  used  to 
make  the  computer  run  a  BASIC  program 
when  RESET  is  hit.  Simply  POKE  the 
location  of  the  Applesoft  RUN  routine 
into  the  RESET  vector  and  call  the  ML 
from  the  first  line  of  a  BASIC  program  (for 
instance,  with  CALL  -768).  This  could  be 
done  with  the  following  program  line: 

10  POKE  1010,102:  POKE  1011,213:  CALL 
-1169 

In  this  case,  you'd  want  to  return  to 
BASIC  by  ending  the  ML  routine  with 
RTS  rather  than  JMP  $03D0. 

Machine  Language  Division 

I  own  a  Commodore  64  and  am  teach- 
ing myself  machine  language.  There  is 
only  one  problem  preventing  me  from 
completing  my  first  useful  program — I 
can't  write  a  program  to  divide  by  ten. 
The  objective  is  to  take  a  number  in  the 
range  0-255  from  memory  and  break  it 
into  each  of  its  decimal  parts.  For  ex- 
ample, 255  would  break  down  into  the 
digits  2,  5,  and  5. 

Kevin  Owens 

The  6502/6510  instruction  set  does  not 
include  a  division  instruction  of  any  sort. 
Although  it's  possible  to  construct  an  ML 
routine  for  division,  it  is  much  easier  and 
faster  to  use  a  method  called  successive 
subtraction.  Here  is  the  basic  idea:  Each 
power  of  ten  from  highest  to  lowest  (in  this 
case  from  100  to  10  to  1)  is  subtracted  from 
the  number  until  you  determine  that  the 
number  has  become  negative.  Each  digit 
of  the  number  is  derived  by  counting  the 
number  of  subtractions. 

Below  is  the  source  code  for  a  short 
program  that  displays  any  three-digit 
number  at  the  upper-left  corner  of  the 
screen.  You'll  need  a  machine  language 
assembler  to  create  the 'object  code.  (This 
program  is  written  in  PAL  assembler  for- 
mat for  the  Commodore  64.  Slight  modifi- 
cations are  needed  to  assemble  the  code 
with  a  different  assembler  or  to  make  the 
program  work  on  a  different  6502  com- 
puter.) Once  the  program  is  assembled, 
enter  SYS  828:  The  program  displays  all 
the  numbers  from  0  to  255  in  succession. 
The  delay  loop  in  line  130  gives  you  time 
to  read  each  number.  To  see  how  fast 
numbers  can  be  converted  and  displayed, 
remove  this  line  and  reassemble  the 
program. 

10  SYS  700:, OPT  0O!*=828 

20  TEMP  =  2 

30  LDA  #0;STA  53281:LDA  #147:J 

SR  5FFD2 
40  LDA  #1:STA  53261 
50  LDA  #0:STA  TEMP 
60  START  INC  TEMP: LDA  TEMP 
70  LDX  #0 

80  SUBAGAIN  LDY  #255 
90  SUBMORE  INY:SEC:SBC  DIGITS, 

X 
100  BCS  SUBMORE 


110  ADC  DIGITS, X 

120  PHAjTYAiORA  #48:STA  1024, X 

:PLA 
130  INXrCPX  #3:BNE  SUBAGAIN 
140  LDY  #8:LDX  #0:WT  DEX:BNE  W 

T:DEY:BNE  WT 
150  JMP  START 
160  DIGITS  .BYT  100,10,1 


Atari  BASIC  Bugs 

I  have  a  very  serious  problem  with  my 
16K  Atari  600XL.  Sometimes  right  after 
I've  entered  a  line,  the  computer  locks 
up  and  the  only  key  that  will  work  is 
SYSTEM  RESET.  But  after  I  press  RE- 
SET and  enter  another  line,  the  com- 
puter locks  up  again, 

Tak  Lee 

You're  experiencing  the  latest  incarnation 
of  the  infamous  Atari  BASIC  lockup  bug. 
This  bug  afflicts  two  versions  of  Atari 
BASIC:  the  original  version,  known  as 
revision  A,  which  was  supplied  as  a  car- 
tridge for  the  400,  800,  and  1200XL;  and 
revision  B,  which  is  built  into  the  600XL 
and  SOOXL  computers.  The  lockup  bug 
takes  a  slightly  different  form  in  these  two 
versions  of  BASIC.  In  revision  A,  BASIC  is 
unable  to  delete  (move  downward  in 
memory)  a  block  of  memory  whose  size  is 
an  exact  multiple  of  256  bytes.  Most  users 
encounter  the  bug  in  the  form  of  a  key- 
board lockup  after  deleting  program  lines, 
but  it  can  affect  the  movement  of  strings 
as  well.  To  illustrate,  type  in  the  following 
program: 

M 10  DIM  ft* (256) , B» (256) 

FD  20  FOR  A=l  TO  256:A*(fi,A) 

=  "B":NEXT  Pi 
EL  30  BS  =  AS 
n At    PRINT  A»:PRINT  B$ 

This  creates  a  string  variable,  A$, 
that  consists  of  256  B  characters.  Then  it 
makes  B$  equal  to  A$.  When  the  program 
runs,  you  would  expect  it  to  print  the 
letter  B  512  times.  Type  RUN  to  see  what 
happens  instead.  If  you  have  revision  A 
BASIC,  the  first  256  characters  are  cor- 
rect, but  the  remaining  characters  are 
garbage.  This  occurs  because  BASIC'S 
memory  move  routine  was  unable  to  move 
the  value  of  A$  into  B$  correctly.  To 
confirm  that  the  bug  applies  only  to  blocks 
of  memory  in  multiples  of  256,  try  chang- 
ing the  number  256  in  lines  10  and  20  to 
some  other  value. 

This  bug  was  corrected  when  revi- 
sion B  BASIC  was  prepared  for  the  600XL 
and  SOOXL.  However,  Atari's  program- 
mers got  carried  away  and  applied  the 
same  correction  to  a  routine  which  didn't 
need  fixing — the  routine  which  inserts 
(moves  upward)  blocks  of  memory,  which 
happens  when  you  add  a  BASIC  program 
line.  As  a  result,  revision  B  BASIC  has  its 
own  lockup  bug  which  rears  its  ugly  head 
when  program  lines  are  inserted  instead 
of  deleted.  Ironically,  the  revision  B  bug 


may  occur  even  more  often  than  the  old 
one — you  add  program  lines  more  often 
than  you  delete  them.  As  an  example,  turn 
your  600XL  or  800X1  off  and  back  on,  then 
enter  the  following  line  in  direct  mode: 

DIM  A$(249):A$- "TRASH" 

Enter  PRINT  A$  to  see  the  variable  value. 
Now  enter  this  program  line: 
10  PRI>rr  "THIS  IS  A  TEST" 

Before  doing  anything  else,  try  to  print  the 
string  again: 

PRINT  AS 

If  you  have  revision  B,  your  computer 
should  be  locked  up,  and  pressing  RESET 
won't  recover.  For  more  details,  see  Bill 
Wilkinson's  "Insight:  Atari"  columns  in 
the  May  and  June  1985  issues  of 
COMPUTE!. 

The  line-editing  bug  is  not  the  only 
problem  in  early  versions  of  Atari  BASIC. 
Here's  a  list  of  some  of  the  other  bugs  in 
revision  A: 

1.  Because  the  value  —0  is  interpreted 
incorrectly,  printing  —0  yields  garbage. 

2.  There's  a  problem  with  the  prece- 
dence of  the  NOT  operator  which  causes  it 
to  give  unpredictable  results  in  some 
cases.  Type  the  following  statement  in 
direct  mode  when  you  have  no  other  pro- 
gram in  memory:  PRINT  NOT  NOT  1. 

3.  LOCATE  and  GET  statements  may 
corrupt  the  internal  buffer  pointer.  This 
can  cause  difficulties  when  trying  to 
READ  from  DATA  statements  or  when 
using  the  VAL  function.  If  you  have  trou- 
ble with  READ  or  VAL,  use  the  statement 
X$=STR$(0)  to  reset  the  buffer  pointer 
after  a  GET  or  LOCATE. 

Revision  B  BASIC  corrects  some  of 
the  bugs  from  revision  A,  but  also  adds  a 
few  of  its  own.  Here  are  some  revision  B 
bugs. 

1.  BASIC  adds  16  bytes  to  the  end  of  a 
program  every  time  you  LOAD  or  CLOAD 
It.  After  loading  and  saving  the  same 
program  several  times,  you'll  find  that  it 
has  grown  substantially.  To  remove  the 
extra  bytes,  LIST  the  program  to  disk  or 
tape  and  ENTER  it  back  into  memory.  To 
avoid  the  problem,  always  use  LIST/ 
ENTER  instead  of  SAVE/WAD. 

2.  CLOAD  and  CSAVE  commands 
fail  to  turn  off  the  sound  after  they're 
done.  Use  END  or  the  statement  SOUND 
0,0,0,0  to  silence  it. 

3.  Occasionally,  an  ERROR  9  (array 
or  string  DIM  error)  wrongly  occurs  in  a 
program  line  that  contains  a  DIM  state- 
ment. You  may  be  able  to  fix  this  condition 
by  LISTing  the  program  to  disk  andEN- 
TERing  it  again. 

One  solution  is  to  get  the  newest 
Atari  BASIC  cartridge,  revision  C,  from 
Atari  Corp.,  Customer  Product  Service, 
P.O.  Box  61657,  Sunnyvale,  CA  94088.  It 
costs  $15.  This  is  the  same  BASIC  built 
into  the  Atari  65KE  and  130XE  models. 
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Subscribe  to  COMPUTE!  today  through  this 
special  introductory  money-saving  offer,  and 
you'll  be  getting  a  lot  more  than  just  another 
computer  magazine.  That's  because  each  issue 
of  COMPUTE!  comes  complete  with  up  to  20 
all-new,  action-pacl<ed  programs. 

Subscribe  now  and  you  can  depend  on  a 
steady  supply  of  high  quality,  fun-filled 
programs  like  Hickory  Dickory  Dock, 
Switchbox,  TurboDisk,  Home  Financial 
Calculator,  Turbo  Tape,  SpeedScript, 
SpeedCalc,  and  hundreds  of  other  educational, 
home  finance,  and  game  programs  the  entire 
family  can  use  all  year  long. 

The  superb  programs  you'll  find  in  each 
issue  are  worth  much,  much  more  than  the 
low  subscription  price. 

And  there's  more  to  COMPUTE!  than  just 
exciting  new  programs.  Month  after  month, 
COMPUTEI's  superb  articles  deliver  the  latest 
inside  word  on  everything  from  languages  to 
interfaces... from  programming  to  disk  drives. 

Whether  you're  a  novice  or  an  experi- 
enced user,  COMPUTE!  is  the  magazine  for 
you.  So  subscribe  today.  Return  the  enclosed 
card  or  call  1-800-247-5470  (in  Iowa, 
1-800-532-1272). 

Do  it  now. 
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Getting 
Down 

^^BASICs 


In  one  form  or  another,  the 

BASIC  programming 

language  has  been  around 

since  before  the  dawn  of 

personal  computing.  Easy  to 

learn,  simple  to  use,  and 

useful  for  a  wide  variety  of 

tasks,  BASIC  has  opened  the 

doors  of  computer 

programming  for  millions  of 

people.  Now,  as  a  new 

generation  of  personal 

computers  emerges,  BASIC  is 

continuing  to  evolve  as  a 

friendly  and  functional 

computer  language — with  a 

new  look  and  feel 


Why  BASIC?  Why  has  this 
22-year-old  program- 
ming language — Begin- 
ner's All-purpose  Symbolic 
Instruction  Code — grown  so  im- 
mensely popular  as  an  introduction 
to  computer  programming  and  as  a 
general  language?  Despite  its  inher- 
ent limitations  and  numerous  crit- 
ics, BASIC  remains  the  most  widely 
taught  and  used  language  among 
computerists  today. 

The  answers  to  these  questions 
go  back  to  a  period  before  the  ad- 
vent of  personal  computing,  in  fact, 
years  before  a  microcomputer  was 
ever  built.  In  the  1960s,  the  large 
mainframe  computers  ran  pro- 
grams by  processing  batches  of 
punch  cards — a  system  known  as 
batch  processing.  These  mainframes 
were  machines  that  required  a 
corps  of  trained  operators  to  serve 
relatively  untutored  users.  That  av- 
erage people  would  someday  own 
and  program  powerful  computers 
which  fit  on  a  desktop  was  unimag- 
inable. 

In  those  days,  you  didn't  inter- 
act with  a  computer  so  much  as 
present  punch  card  offerings  to  it, 
and  then  wait  for  the  computer  to 
tell  the  computer  operator  to  tell 


you  the  answer.  More  often  than 
not,  the  first  result  was  that  a  mis- 
take somewhere  in  your  batch  of 
cards  made  an  answer  impossible 
until  you  corrected  the  error  and 
then  resubmitted  the  batch  for  an- 
other run.  Not  only  was  the  process 
tedious,  but  it  also  meant  waiting  in 
line  for  access  to  the  computer.  A 
computer  could  serve  only  one  user 
at  a  time. 

Today,  we  tend  to  take  for 
granted  our  ability  to  communicate 
quickly  and  easily  with  computers. 
The  proliferation  of  personal  com- 
puters has  meant  that  individuals 
can  have  control  over  when  and 
how  often  they  work  with  a  com- 
puter. And  that  kind  of  accessibility 
means  that  many  people  need  a 
relatively  easy  way  to  communicate 
with  computers  without  having  to 
rely  on  other  people  as  translators. 

The  original  BASIC  grew  out  of 
a  project  started  back  in  1964  by 
Dartmouth  College  mathematics 
professors  Dr.  John  G.  Kemeny  and 
Dr.  Thomas  E.  Kurtz.  Kemeny  and 
Kurtz  were  working  with  students 
on  a  timesharing  project  that  would 
allow  several  people  to  gain  simul- 
taneous access  to  the  university's 
mainframe  computers.  As  a  part  of 


16    COMPUm     July  1986 


Ngyv 

COMPUTE!  Books 

For  Kids 


Help  your  children  learn  the  basics 
of  computer  programming  with  these 
two  new  entertaining  and  educational 
books  from  COMPUTEI. 


0-97455-038-6 
$14.95 


0-67455-032-7 
$14.95 


Each  book  contains  easy-to-fol[ow  Instructions,  programming  examples,  quick  reviews,  and 
colorful  Illustrations.  Written  In  COMPUTEI's  clear,  easy-to-understand  style,  ttie  books  offer 
hours  of  entertainment  while  helping  kids  {and  adults)  learn  to  program  In  BASIC. 

If  you're  acquainted  with  BASIC,  you  can  easily  write  your  own  games  and  applications  on 
Atari's  ST  or  Commodore's  128  computers.  Over  30  sections — all  with  Instructor  notes, 
lessons,  assignments,  and  lively  Illustrations — entertain  and  amuse  as  you  learn  to  use 
these  powerful  computers.  COMPUTEI's  Kids  and  the  Atari  ST  and  COMPUTEI's  Kids  and  the 
Commodore  128,  in  the  bestselling  series  from  author  Edward  Carlson,  are  gentle 
Introductions  to  programming  your  new  computer.  Clear  writing  and  concise  examples, 
both  trademarks  of  this  series,  make  It  easy  for  anyone — child  or  adult — to  learn  BASIC 
painlessly. 


Look  for  these  and  other  books  from  COIVIPUTEI 
t  your  local  book  store  or  computer  store.  Or  order  directly  from  COMPUTE!. 


F" 


To  order,  call  toll  free  In  the  US  1-800-346-6767  (in  NY  212-265-6360}  or  mail  the  attached  coupon  with 

your  payment  to  COMPUTEI  Books,  P.O.  Box  5036.  F.D.R.  Station,  Now  Yorl<.  NY  I0T50. 
Please  send  me  the  following  COMPUTEI  books.  My  payment  Is  enclosed. 

COMPUWs  Kids  and  the  Commodore  128,  {022-7}  $]A.95eac\y  

COMPUTEI's  Kids  and  the  Atari  ST,  (038-6)  $  14.95  each  
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NC  residents  add  4.5%  sales  fox 
Shipping  and  handling  per  book 
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book:  airmail.  $5.00  per  book.) 
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'COMPUTE!  books  ore  available  in  the  U.K.,  Europe,  the  Middle 
^^       East,  and  Africa  from  Holt  Saunders,  Ltd.,  1  St.  Anne's  Road, 
g?7mr«^.'^h'r?Nr?S%  TOO..  ^^       Eastbourne,  East  Sussex  BN21  3UI^,  England  and  in  Canada  from 

puM*iMoia»*wE.co«njEiiSCT»ti>.ook»u:EiiG««MDMtcowwEi Books. ana co«Mni>»p«  Holt,  Rinefiort,  &  WinstoH,  55  Homer  Avenue,  Toronto,  ON  M8Z  4X6, 


the  project,  Kemeny  and  Kurtz  de- 
veloped BASIC,  from  which  all 
subsequent  versions  have  evolved. 
The  professors  wanted  BASIC  to  be 
an  easy-to-use  general-purpose 
programming  language  for  their 
mainframe  system  that  would 
allow  more  people  to  communicate 
with  the  computer  on  their  own. 

By  the  1970s,  when  the  first 
microcomputers  were  becoming 
available,  BASIC  had  come  to  be 
regarded  as  an  excellent  language 


Den  elopers  of  the  original  BASIC  pro- 
gramming language,  Dr.  Thomas  E. 
Kurtz  (left)  and  Dr.  John  G.  Kemeny, 
who  now  market  a  new  version  called 
True  BASIC. 


for  personal  programming  and  had 
already  undergone  several  muta- 
tions. It  became  one  of  the  first 
languages  implemented  on  a  per- 
sonal computer  when  two  college 
students — Paul  Allen  and  Bill 
Gates — adapted  it  for  the  kit-built 
4K  RAM  Altair  in  1974.  Allen  and 
Gates  later  went  on  to  found  their 
own  software  company,  Microsoft, 
Inc.  Today,  vastly  improved  de- 
scendants of  the  original  Microsoft 
BASIC  are  available  for  almost  all 
personal  computers. 

As  BASIC  became  more 
widespread,  it  evolved  in 
many  different  directions. 
Although  the  most  popular  version 
is  Microsoft  BASIC,  none  of  the 
dozens  of  dialects  adheres  to  a  sin- 


gle standard.  An  involved  program 
written  in  BASIC  for  one  type  of 
computer  will  rarely  run  on  another 
type  without  at  least  some  adjust- 
ments. Each  version  of  BASIC 
embodies  the  strengths  and  weak- 
nesses of  the  computer  on  which  it 
runs,  as  well  as  the  additions  and 
deletions  of  those  who  adapted  it 
from  earlier  versions.  Some  BASICs 
are  so  different  from  each  other  that 
they're  almost  like  completely  dif- 
ferent languages. 

Recently,  this  diversity  led 
Kemeny  and  Kurtz  to  introduce 
what  they  call  True  BASIC  (Addison- 
Wesley  Publishing  Company, 
Reading,  Massachusetts)  in  late 
1984.  True  BASIC  is  available  for 
the  IBM  PC  and  compatibles,  the 
Commodore  Amiga,  and  the  Apple 
Macintosh.  In  part,  it's  an  attempt 
to  deflect  some  of  the  criticism 
which  has  been  aimed  at  BASIC 
over  the  years.  Critics  of  BASIC 
often  decry  its  lack  of  structure — it's 
not  only  possible,  but  quite  easy,  to 
write  a  BASIC  program  so  disorga- 
nized that  even  the  programmer 
cannot  easily  decipher  it.  On  the 
other  hand,  BASIC'S  freedom  from 
excessive  structure-promoting  niles 
is  the  very  feature  which  attracts 
many  programmers  who  prefer  a 
more  freeform  style.  Structured  lan- 
guages tend  to  encourage  the  pro- 
duction of  more  readable  code,  but 
also  tend  to  impose  more  rules  on 
the  programmer.  The  debate  over 
how  rigidly  structured  a  program- 
ming language  should  be  is  unlike- 
ly to  end  anytime  soon. 

True  BASIC  definitely  leans  to- 
ward the  structured  side.  In  fact, 
some  of  its  new  commands  are  al- 
most identical  to  commands  in  Pas- 
cal, a  popular  structured  language. 
Kemeny  and  Kurtz  hope  that  True 
BASIC'S  structure,  speed,  error- 
handling,  mouse  support,  graphics, 
and  easy  transportability  to  other 
computers  will  establish  it  as  a  new 
standard. 

As  personal  computers  gained 
popularity,  BASIC  proved  to  be  a 
fairly  easy  language  to  learn  for 
most  people.  Since  most  versions  of 
BASIC  are  interpreters,  a  program- 
mer can  enter  a  line  of  BASIC  state- 
ments and  test  it  immediately. 
Feedback  is  rapid  because  the  com- 
puter interprets  and  carries  out  the 
commands  instantly.  But  that  also 
means  that  the  computer  has  to 
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Commodore  Software  Sale 


ORDER  TOD  A  Yl 


GAMES 

Acc«mm 

D  3500  MACH  V  {CI $3^.95  $20.95 

D  2128  MACH  128  (D) 49.95  29.95 

□  0-45t  BEACH  HEAD  (D) 39  9S  21  95 

□  303B  BEACH  HEAD  II  {D) 49  95  23  95 

a  0752  RAID  OVER  MOSCOW  (D) 39.95  26.95 

D  01 18  LEADER  BOARD  (D) 39.95  24.95 

Accolade 

n  5950  HARDBALL  |D) $29.95  $18.95 

D  5952  LAW  OF  THE  WEST  (D) 29.95  18.95 

D  5954  FIGHT  NIGHT  (D) 29.95  18.95 

n  5956  PSI  S  TRADING  CO.  (D> 29.95  18.95 

D  5958  THE  DAM  BUSTERS  (D) 29.95  16.95 

Activlsion 

D  0761  PITFALL  II  —  LOST  CAVERNS  (D).  $39.95  $20.95 

n  0900  SPACE  SHUTTLE  (D) 37.95  1  8  95 

n  0932  ON  FIELD  FOOTBALL  (D) 39.95  20  95 

a  0936  ON  COURT  TENNIS  (D] 39  95  20  95 

D  0940  GHOSTBUSTERS  (D)   39.95  23.95 

□  3580  GREAT  AMERICAN  RD.  RACE  (D)  .  29.95  18.95 

D  3582  MASTER  OF  THE  LAMPS  (D) 29.95  20.95 

D  3584  COUNTDOWN/SHUTDOWN  (D) . .  29.95  20,95 

D  3588  MINDSHADOW  (D) 29.95  18.95 

D  3590  STAR  LEAGUE  BASEBALL  (D)  ....  29,95  20  95 

D  3592  ALCAZAR  (D) 29,95  20  95 

D  5196  LITTLE  PEOPLE  PROJECT  (D) 34,95  22.95 

D  5198  FAST  TRACKS  (D) 34.95  20.95 

D  5202  GAMEMAKER  (D) 39.95  34  95 

D  3585  COMPLETE  FIREWORKS  KIT  (D)   ..34.95  22.95 

D  3612  ALTER  EGO  (D) ^9.95  39  95 

D  3614  BORROWED  TIME  (D) 29.95  18.95 

D  5200  HACKER  (D) 29.95  18.95 

D  1572  STAR  RANK  BOXING  (0) 29.95  20.95 

Avalon  Hill 

□  0396  SUPER  BOWL  SUNDAY  (D) $35.00  $33.95 

D  3572  SPITFIRE  40  (0) 35.00  22  95 

D  5138  STATIS  PRO  BASEBALL  (D) 35.00  22.95 

D  5250  MISSION  /  THUNDERHEAO  (D).  ,  .  25,00  17.95 

D  5146  JUPITER  MISSION  (D) 35,00  22  95 

D  5252  GULF  STRIKE  (D) 30,00  19,95 

n  5254  MACBETH  (D) 25.00  17  95 

D  2375  COMPUTER  TITLE  BOUT  (D[ 30  00  19  95 

D  0860  TOURNAMENT  GOLF  (D) 29  95  18  95 

D  5140  BLACK  THUNDER  (D) 19.95  14.95 

Broderbund 

D  2903  LODE  RUNNER  (D)  $34.95  $19  95 

D  2905  KARATEKA  (0) 29  95  23  95 

D  3038  CHAMPION  LODE  RUNNER  (D)  .,34,95  26,95 

D  5158  BANK  STREET  WRITER  (D) 49,95  32,95 

D  5330  BANK  STREET  SPELLER  (D) 49,95  32  95 

n  5332  BANK  STREET  FILER  (D) 49,95  33  95 

□  5334  BANK  STREET  MAILER  (D) 49,95  33  95 

n  2540  PRINT  SHOP  (D) 44,95  27.95 

n2542GRAPHIC  LIBRARY  NO,  1  (D| 24,95  15.95 

D3S9B  GRAPHIC  LIBRARY  NO.  2D 24,95  15.95 

D  3897  GRAPHIC  LIBRARY  NO,  3  (d) 24.95  1 5.95 

D  2910  PRINT  SHOP  COMPANION  (D) . , ,  39.95  34.95 

D  5160  MUSIC  SHOP  (D) 44.95  38  95 

D  5170  lODE  RUNNERS  RESCUE  (D) 29.95  30,95 

Eioctronlc  Arts 

□  3830  DR,  J  S  LARRY  BIRD  (D) $29.95  $33  95 

O  3832  FINANCIAL  COOKBOOK  (D)  , , . ,  39.95  27  95 

D  3834  MAIL  ORDER  MONSTERS  (D) 34,95  22  95 

D  3840  THE  SEVEN  CITIES  OF  GOLD  (0). ,  29,95  23  95 

D  3842  SKY  FOX  (D) 29.95  23  95 

□  5176  CARRIERS  AT  WAR  (D) 42,95  33  95 

□  5178  REACH  FOR  THE  STARS  M  (D) 37,95  28  95 

D  5180  HEART  OF  AFRICA  (Dl 29,95  23  95 

D  5182  MOVIE  MAKER  (D) 29.95  23  95 

O  5184  EUROPE  ABLAZE  (D)   43.95  34  95 

D  5186  M.U.L.E.  (D) 19  95  16  95 

D  5188  MURDER  ON  ZINDERNEUF  (D)  . , ,  19.95  16  95 

D  5190  MUSIC  CONSTRUCTION  SET  (D   , ,  19,95  16.95 

D  5192  PINBALL  CONSTRUCTION  SET  (D|  19.95  16.95 

D  5194  RACING  CONSTRUCTION  SET  (D)  39,95  22,95 

D  3601  SUPER  BOULDERDASH  (D) 29,95  22  95 

D  3600  TOUCHDOWN  FOOTBALL  (0), . . ,  29,95  22,95 


Phone 


(T)  Tope,  (C)  Cartridge,  (D)  Disk. 
Datasoft 

G  3025  BRUCE  LEE  (D)  $34,95  $19.95 

C  3025  PAC-MAN  (D) 34,95  17,95 

C  3027  MIGHTY  CONAN  (D) 34,95  22,95 

l:  3028  MR  DO!  (D) 34,95  16,95 

C  3029  DIG  DUG  (0) 34,95  18  95 

a  3032  POLE  POSITION  (D)  .■ 34.95  18,95 

a  5218  THE  GOONIES  (D) 29.95  18.95 

□  5220ZORRO(D) 29.95  18.95 

Epyx 

a  0337  WORLD'S  GREAT  FOOTBALL  (D)  $39.95  $23.95 

D  0338  WINTER  GAMES  (D) 39.95  20.95 

n  0339  THE  EIDOLON  (D    39.95  20,95 

D  0340  KORONIS  RIFT  (D)  39.95  20,95 

n  0360  JET  COMBAT  SIMULATION  (D|  , . ,  39.95  20.95 

G  0364  SUMMER  OLYMPIC  GAMES  (D)  , ,  39.95  18,95 

D  0365  WORLDS  GREAT  BASEBALL  (D) . ,  34.95  32,95 

D  0382  SUMMER  OLYMPIC  GAMES  II  (Dl  .39.95  30,95 

D  0750  PITSTOP  II  (D) 39.95  22,95 

D  2046  IMPOSSIBLE  MISSION  (D) 34.95  16.95 

C  2066  ROBOTS  OF  DAWN  (0) 39.95  15,95 

C  2070  BARBIE  (D) 39.95  18,95 

C  2074  G.I,  JOE  (D) , 39,95  18,95 

D  3005  BALLBLAZER  (Dl 29,95  20,95 

C  3006  RESCUE  ON  FRACTALUS!  (D)  , . . .  29,95  20,95 

C  1556  MOVIE  MONSTER  GAME  (D)   ,...39,95  24,95 

'_  1557  MICROSOFT  MULTIPLAN  (0)  , . , .  59,95  39,95 

;_  1 558  PROG,  BASIC  TOOLKIT  (D) 44,95  29,95 

C  1 559  VORPAL  UTILITY  KIT  (D) 34,95  22.95 

Strategic  Simulations,  Inc. 

D  2995  RDF  1985  (D) $34.95  $20.95 

C  2997  GEOPOLITIQUE  (D) 39.95  23.95 

G  3008  RINGSIDE  SEAT  (D) 39.95  23.95 

L  3010  IMPERIUM  GAIACTUM  (D) 39.95  23.95 

G  301 1  CARTELS  AND  CUTTHROATS  {D)  .  39.95  23.95 

G  301 2  RAILS  WEST  (D) 39.95  23.95 

C  301  4  PROFESSIONAL  TOUR  GOLF  (D)  .  .  39.95  23.95 

C  3015  50  MISSION  CRUSH  (0) 39,95  23,95 

G  3016  PRESIDENT  ELECT  (0) 39.95  23,95 

G  3017  BROADSIDES  (D) 39.95  24.95 

:_  3018  COMPUTER  QUARTERBACK  (D). ,  39.95  24.95 

-  3020  COMPUTER  AMBUSH  (D) 59.95  37,95 

L_  3021  COMPUTER  BASEBALL  (D) 39,95  23.95 

C  3031  FIELD  OF  FIRE  (D) 39,95  23.95 

C  5154  KAMPFGRUPPE  (D) 59.95  34,95 

L  5156  COLONIAL  CONQUEST  (D) 39,95  23,95 

□  3768  U,S.A,A.F,  (D) 59.95  36,95 

G  1560  SIX  GUN  SHOOTOUT  (D) 39.95  23.95 

C  1561  BATTLE  OF  ANTIETAM  (D) 49,95  31.95 

C  1562  BATTALION  COMMANDER  (D)-,.  39.95  23.95 

G  1 563  PANZER  GRENADIER  (D) 39.95  23,95 

C  1564  NORWAY  1985  (D) 34.95  20  95 

G  1565  MECH  BRIGADE  (D) 59.95  36.95 

G  1567  BAnLEGROUP  (D) 59.95  37.95 


CALL    8  to  8  C.S.T.  -  M-F 

312-382-5244 


BUSINESS 

Softsync 

O  5930  ACCOUNTANT,  INC.  (Dl  C128  .,$99,95  $64,95 

□  5932  PERSONAL  ACCOUNTANT  (D) . .  .  34,95  26,95 

C  5934  MODEL  DIET  (D) 29.95  23  95 

C  S936  TRIO  (D)  CI  28 49.95  45.95 

G  5938  KID  PRO  QUO  (D) 29.95  23.95 

G  5940  DESK  MANAGER  (D)  C128 39.95  28.95 

Tlmeworks 

G  0176  INVENTORY  MANAGE  (D) $69.95  $38.95 

G  OieO  ACCOUNTS  RECEIVABLE/ 

INVOICING    (D)   69.00  38.95 

L_  0182  ACCOUNTS  PAYABLE/ 

CHECKWRITING  (D| 69.00  38.95 

^  01B4  PAYROLL  MANAGEMENT  (Dl 69,00  38,95 

G  0188  GENERAL  LEDGER  (0) 69,00  38  95 

G  0928  EVELYN  WOOD  SPEED  READ  (D)  ,  69,95  32,95 
G  5022  WORDWRITER  &  DATA 

MANAGER  II  (D) 96,00  49,00 

G  5026  SWIFTCALC/SIOEWAYS  (D) 49.95  32.95 


Add  53,00  lor  shipping,  hondling  and  insurance.  Illinais  residents 
pleose  add  6'-'.%  tax.  Add  $6.00  for  CANADA.  PUERTO  RICO. 
HAWAII,  ALASKA,  APO-FPO  orders,  Canadian  orders  must  be  in  U.S 
dollars,  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES.  EXCEPT 
CANADA.  Enclose  Coshlers  Check.  Money  Order  or  Personal  Check, 
Allow  1 4  days  for  delivery,  2  to  7  doys  for  phone  orders,  1  doy  express 
mail !  Prices  &  availability  subject  to  change  without  notice. 
VISA  — MASTERCARD  — CO, D,         No,  CO, D.  to  Canada,  APO-FPO 


Buiinsu  Continued 

CI  28  Software  From  Time  works 

a  5022  WORD  WRITER/ 

SPELL  CHECKER  (D) $69,95  $59.95 

a  5024  DATA  MANAGER  II  (D) 69.95     49.95 

D  5026  SWIFTCALC  WITH  SIDEWAYS  (0) .  69.95     49.95 

D  5030  PARTNER  (D|. 59.95     39.95 

□  3048  SYLVIA  PORTER  (D) 69.95     39.95 


EDUCATION 

American  Educational  Computer 

a  2482  ELEM,  SCIENCE  FACTS  (D) $29.95  $1 4,95 

G  2492  VOCABULARY  WORD  BUILD  D) . ,  29.95  1 4.95 

G  2493  GRAMMAR  WORD  SKILLS  (D),.,,  29.95  14,95 

□  2494  WORLD  GEOGRAPHY  FACTS  (D) ,  29,95  14,95 
G  2495  SPANISH  VOCAB.  SKILLS  (D)  , . , .  29,95  14,95 

a  2496  FRENCH  VOCAB,  SKILLS  (D) 29,95  14,95 

a  2497  WORLD  HISTORY  (D) 29,95  14,95 

D  249BU,S,  HISTORY  FACTS  (D) 29,95  14,95 

G  3499  BIOLOGY  FACTS  (D)   29,95  14,95 

□  2519  U,S,  GEOGRAPHY  FACTS  (D) , . , .  29,95  14,95 

□  2520  U,S,  GOVERNMENT  FACTS  (D|..  .29.95  14.95 

G  252!  AEC  SPELLING  (D) 39.95  24.95 

G  3745  PHONICS  (D) 39.95  24.95 

G  3747  LEARN  TO  READ  |D) 39.95  24.95 

G  3749  READING  COMPRENSION  (0)  . . ,  39.95  24.95 

Deslgnware 

C  0824  GRAMMAR  EXAMINER  (D) $39.95  $24.95 

G  0828  SPELLAKAZAM  (D) 34.95  9.95 

■^  0832  STATES  S  TRAITS  (D) 44.95  27.95 

G  0836  SPELLICOPTER  (D) 39.95  22.95 

_  0840  CREATURE  CREATOR  (D)  34,95  9.95 

G  0844  TRAP-A-ZOID  (D|    39,95  9.95 

G  2518  THE  BODY  TRANSPARENT  (D) . .  , .  44,95  27,95 
G  2517  EUROPEAN  NATIONS  £ 

LOCATIONS  (D)  44,95  19,95 

G  2062  MATH  MAZE  (D) 39,95  22,95 

D  5100  ALGEBRA  1(D)  39.95  19,95 

a  5102  REMEMBER  (D] 69.96  49.95 

a  5104  WEBSTER'S  NUMBERS  (O)   39.95  19.95 

G  5105  SPELLING  £  READ  PRIMER  (D)  ,  . . ,  39.95  19,95 

G  5106  ALGEBRA  2  (D) 39,95  19,95 

G  5107  ALGEBRA  3  (d) 39.95  19.95 

Mlndscape 

G  5108  KEYBOARD  CADET  (D) 39.95  25.95 

G  5110  BANK  STREET  MUSIC  WRITER  (D) ,  39,95  25.95 

G  5112  CROSSWORD  MAGIC  (D)  49.95  29.95 

G.5114  THE  PERFECT  SCORE  (D|  69.96  45.95 

G  51 16  COIORME/RAINBOW  BRITE  (D) . .  34,95  18,95 

G  51 18  THE  HALLEY  PROJECT  (D) 39,95  22,95 

G  5120  INDIANA  JONES  IN  THE 

LOST  KINGDOM  (0) 29,95  18,95 

O  5122  BANK  STREET  STORYBOOK  (Dl  ,  .39,95  22,95 

O  5910  THE  DOLPHIN'S  RUNE  (D) 29,95  18,95 

n  5912  THE  LUSCHER  PROFILE  (D) 39,95  22.95 

0  5914  QUAKE  MINUS  ONE  (D)  29.95  16.95 

n  5916  THE  LORDS  OF  MIDNIGHT  (D) , . . .  29.95  16.95 

G  5918  SHADOWFIRE  (D) 29.95  16.95 

G  3702  BOP  N  WRESTLE  (D) 29.95  21.95 

a  3690  INFILTRATOR  (Dl 29.95  21 .95 

Weekly  Reader       Buy  l  Oet Oim  fr»»l 

a  2512  STICKYBEAR  NUMBERS  (D) 34.95  14.95 

G25I3STICKYBEAR  BASKETBOUNCE  (D)  34.95  14.95 

G  251 4  STICKYBEAR  OPPOSITES(D) 34.95  14.95 

J  251  5  STICKYBEAR  ABC  (D) 34.95  I  4.95 

G  2516  STICKYBEAR  SHAPES  (D( 34.95  1 4,95 

□  2600  PIC  BUILDER  (D| 29,95  1 4,95 

3  5126  STICKYBEAR  SPELLGRABBERD.  29,95  14,95 

G  51  28  STICKYBEAR  TOWN  BUILDER  (D)  .  29,95  14,95 

G  5130  STICKYBEAR  MATH  (D) 29,95  14,95 

0  5132  STICKYBEAR  READING  (D) 29.95  14.95 

D  5139  STICKYBEAR  TYPING  (0) 29.95  14.95 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Borringfon,  Illinois  60010 

312/382-5244  to  order 


interpret  every  line  of  code  while 
the  program  is  running. 

An  alternative  approach  is  a 
compiler.  Popular  compiled  lan- 
guages include  Pascal,  FORTRAN, 
C,  COBOL,  and  some  BASICs. 
Running  a  program  with  a  compiler 
requires  two  steps.  First,  the  com- 
piler interprets  all  the  commands  in 
the  program  without  carrying  them 
out  and  creates  a  new  version  of  the 
program  on  disk  called  object  code, 
p-code,  or  run-time  code.  This  file, 
incomprehensible  to  human  eyes, 
is  quite  similar  to  a  program  written 


In  Amiga  BASIC  line  numbers  are  un- 
necessan/,  and  are  replaced  with  labels 
that  indicate  subroutines  and  program 
divisions. 


in  machine  language — it's  a  com- 
plex pattern  of  bits  which  is  the 
only  language  that  any  computer 
really  understands.  After  the  com- 
pilation is  completed,  the  object 
code  can  be  run.  Since  all  the  com- 
mands in  the  program  have  already 
been  interpreted  by  the  compiler, 
the  object  code  runs  much  faster 
than  a  program  which  must  be  in- 
terpreted one  command  at  a  time. 

Unfortunately,  the  two-step 
process  of  compiling  can  take  many 
minutes,  which  is  frustrating  for 
programmers — especially  begin- 
ners. If  the  program  contains  an 
error,  the  whole  process  has  to  be 
repeated.  It's  not  as  frustrating  as 
the  old  batch  processing,  but  it's  a 
step  back  in  that  direction. 

Compiled  languages  also  re- 
quire more  computer  power  than 
interpreted  languages.  They  need 
faster  processors  and  more  memo- 
ry— sometimes  512K  of  Random 
Access  Memory  (RAM)  is  scarcely 
enough  for  a  compiler.  This  has 
largely  prevented  compilers  from 


becoming  popular  on  personal 
computers,  since  until  recently 
most  machines  were  limited  to  64  K 
of  RAM.  Because  BASIC  interpret- 
ers can  be  squeezed  into  as  little  as 
8K  of  RAM,  BASIC  was  the  logical 
choice  for  the  first  generation  of 
microcomputers. 

Most  personal  computer 
owners  who  are  interest- 
ed  in  programming 
quickly  grow  accustomed  to  the 
version  of  BASIC  that  comes  with 
their  machines.  Some  BASICs  are 
built  into  the  computer's  Read  Only 
Memory  (ROM),  while  others  are 
supplied  on  plug-in  ROM  car- 
tridges or  floppy  disks.  But  there 
have  been  significant  variations  of 
BASIC  even  for  the  same  brands  of 
computers.  Besides  that,  additional 
versions  of  BASIC  are  often  made 
available  by  independent  sources, 
as  are  packages  which  add  en- 
hancements to  existing  BASICs, 

For  example,  Applesoft  BASIC 
is  a  version  of  Microsoft  BASIC 
that's  used  by  Apple  Il-series  com- 
puters. Integer  BASIC,  an  earlier 
BASIC  from  Apple,  was  available 
in  ROM  on  the  original  Apple  II. 
Although  faster  than  Applesoft 
BASIC,  Integer  BASIC  doesn't 
allow  floating-point  math  opera- 
tions (the  use  of  fractions)  as  does 
Applesoft.  The  Apple  11+  machine 
came  with  Applesoft  BASIC  in 
ROM,  while  the  Apple  He  and  lie 
computers  have  Applesoft  BASIC 
on  built-in  language  cards,  (The 
II -I-  can  add  a  language  card,  too.) 
Atari  computers  have  had  sev- 
eral different  versions  of  BASIC 
available,  as  well  as  optional  third- 
party  BASIC  languages.  The  Atari 
400,  800,  and  1200XL  computers 
come  with  an  8K  BASIC  ROM  car- 
tridge, while  the  600XL,  800XL, 
and  130XE  computers  have  later 
revisions  of  BASIC  built  into  ROM. 
There  are  also  alternatives  to  Atari 
BASIC,  such  as  Microsoft  BASIC 
from  Atari  and  BASIC  XL  and 
BASIC  A+  from  Optimized  Sys- 
tems Software  (OSS)  in  San  Jose, 
California, 

Commodore  64  owners  are  fa- 
miliar with  the  BASIC  2.0  version 
in  their  computers,  the  same  ver- 
sion that  appeared  in  the  earlier 
VIC-20,  Prior  to  2.0,  the  earlier 
Commodore  PET  computer  includ- 
ed a   version   4.0.   A  variation 
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C128 


AND 


ATARI  ST 


REGURED  READNG 


C-l?fl  INTERNALS 
Dot&ilAd  guid9  pftuirnt  lh4 
l2a'B  oparatiflg  lytt^m. 
«xplaln5,  graphic  chipi, 
Mamory  Mana§4itnn1  Unit, 
80-col  graphic*,  ctrrwronted 
ROM  Kstin^B.  A  book  no  tZ8 
pri>gramm4r  ihould  be 
without  SOOpp  $10.05 


C-t28-raCKS*TIP3 

Practical,  •My-to-ui*  lech- 
nlquas  for  C^IZB  uiart.  80 
column  QfBfi^c*.  windowing, 
nwnwfy  layoot.  amotiart'ng, 
Kar^ial  routines,  cuitom 
chefaci«r  ftats,  loftwara 
pfotftction.  spfilat,  command 
«Kten8Jons        300pp.  $10.05 


1571  INTERN  AL3 
EtHntJai  r*ftr«nca  for  1S71 
UB»rs.  SaqutnliJ  &  raltfive 
filas,  diract  accsi^  com- 
nwnds,  tcraign"  dak  fcffn*B, 
CP/M  and  tha  1571,  zwo 
paga  and  tfrcr  m«stagBB. 
Fully  commantad  DOS  RDM 
IlKtingt.  500pp.  $10,05 


129B«>ioTrB)nlngQukl« 
Thorough  in!r«Ju«ion  h>  pro- 
graming lof  \h%  t>*5inn«r. 
Topics  Induda:  pfoblam 
analysis,  corrpjete  daacfip- 
liofi  of  BASIC  commari^*  with 
axsmples  and  probiarns, 
structured  programing,  mon- 
ttor  commvndt.SOOppSld.OS 


C-iaSPEEKSAPOKE^ 

Praaanta  dorefw  of  program- 
ing qui  cii;>  hi  tides.  Easy  and 
useful  techniquaa  on  th« 
Dparatfng  system,  zsro-pftga, 
pointers  &  stack,  640x200 
graphics,  Z80  and  8502 
macNna  language,  BASIC 
Intarprelaf.       200pp    $10,05 


CP/M  ON  THE  C-1 28 

Rnaltyl  CP/M  ravaalad  or^  th« 
C-t2B.  Sirnpla  axpianstfoni 
o(  tha  oparating  system, 
reside  nVtransJerT  commands, 
rnemcfy  usage,  ayatam  dtsK, 
using  PIP,  CP/M  utility 
programs,  commenlad  2IS0 
ROM  Its1ir>g  A  mora.      $10,BS 


ST  WTERMALS 
Eisantlal  gu^d*  to  laarnlrg 
tha  ir^sid*  InformatJdn  of  tha 
ST.  Detailed  dascrlpdont  ot 
lound  and  graphic*  chips, 
intemai  hafdware,  I/O  ports, 
ming  GEM.  Commanted 
BIOS  listing.  An  Indltpan- 
stbl*  re1*r*r>ca  for  your  ST 
450pp.    $10.06 


GEM  Pragtmmtmt'm  Ra(. 

Per  serious  progfammars  In 
naad  of  detailed  inform oBon 
on  GEM.  Written  vrith  an  easy 
to  understand  format  All 
GEM  aicam(:J*B  are  written  in 
0  and  asBsmUy  language. 
Raquired  library  addition  that 
no  serious  pfogramer  should 
be  without      450pp.    $19.95 


ST  TRICKS*  TIPS 
Fantastic  cdiectJon  o4  pro- 
grams and  Info  for  tha  ST. 
Complete  programs  Induda: 
super-last  RAM  disk:  ttma- 
savlng  printer  spooler:  odor 
print  hardcopy:  piotter  output 
hardcopy;  creating  access* 
oriet.  Money  saving  tricks 
andtjpe.         280  pp.    $19.05 


STORAPKICSASOUND 
Delailed  guide  to  under- 
startding  graphic*  &  sound 
on  the  ST.  2D  A  3D  tunctian 
plotters,  MoirA  patterns, 
varioui  rasDlutions  and 
graphic  memory,  ffaclala, 
waveform  generation.  Exam- 
ples written  In  C,  LOGO, 
BASIC  arKl  Modiia2.   $10.95 


ST  LOGO  GUIDE 
Take  control  o*  your  ST  by 
learning  ST  LOGO-^the  eaay 
to  use,  powerful  languegt. 
Topics  Indude:  file  handling, 
recurs  ion- HI  I  bert  ft  Slerpinski 
curves,  2D  and  3D  Kinc^on 
plots,  data  structure,  error 
handling.  Heiphjl  guide  for 
ST  LOGO  ueerm.  S10.06 


ST  PE^KS  A  POKES 

Enhance  your  programs  witfi 
thie  examples  found  within 
1h]s  book.  Explores  using 
different  languages  SAStC, 
C,  LOGO  and  machine 
language,  using  various 
Interfaces,,  memory  usage, 
reading  and  swing  from  and 
to  disk,  more.  $16.86 


Ccmmi3dcce1 28  in  a  vademark  at  Oommodore  Business  Mactilnas  he. 
The  ATAAl  logo  artd  ATARI  ST  are  kadamackaef  Alari  Qvp. 


Abacus  ^H  Software 


P.O.  Box  721 9  Dept.  C7  Grand  Rapids,  Ml  4951 0  •  Telex  709-1 01  -  Phone  (61 6)  241-551 0 

Optional  diskettes  available  for  all  book  titles  -  $14.95  each.  Other  books  &  software  also  available.  Call  for  the  name  of  your 
nearest  dealer.  Or  order  directly  from  ABACUS  using  your  MC,  Visa  or  Amex  card.  Add  $4.00  per  order  for  shipping.  Foreign 
orders  add  $10.00  per  book.  Call  now  or  write  for  your  free  catatog.  Dealer  inquires  wekX)me-over  1400  dealers  nationwide. 


between  BASIC  2.0  and  BASIC  4.0, 
called  BASIC  3.5,  was  included  in 
the  Plus/4  and  16  computers.  And 
the  128  includes  a  powerful  version 
of  BASIC,  7.0,  that  contains  virtual- 
ly all  of  the  commands  of  the  earlier 
BASICS. 

But  despite  the  differences 
among  these  forms  of  BASIC, 
they're  all  fairly  similar  in  their  or- 
ganization. They're  interpreted, 
giving  immediate  feedback  to  the 
user;  they  all  use  similar  commands, 
variables,  and  functions;  each  line  of 
BASIC  begins  with  a  line  number; 


ST  BASIC  has  line  numbers,  but  the 
GEM  operating  environment  includes 
multiple  windows,  drop-down  menus, 
and  icons  much  like  AmigaBASIC  and 
Macintosh  BASIC. 


BASIC  doesn't  usually  permit  your 
computer  to  crash,  so  it's  friendly  to 
programmers;  and  access  to  print- 
ers and  other  peripherals  is  rela- 
tively easy  to  accomplish. 

Within  the  past  year,  as  the 
new  Commodore  Amiga  and  Atari 
ST  computers  have  joined  the  Ap- 
ple Macintosh — machines  based  on 
the  more  powerful  68000  micro- 
processor— computer  users  have 
been  confronted  with  new  BASIC 
languages  that  have  several  impor- 
tant differences  from  earlier  ver- 
sions. The  Macintosh  and  the 
Amiga  have  BASIC  languages  that 
are  almost  identical,  both  created 
by  Microsoft.  The  Amiga  was  ini- 
tially released  with  a  BASIC  lan- 
guage called  ABASIC,  but  that  was 
superseded  by  the  Microsoft  ver- 
sion, called  Amiga  BASIC.  The  Atari 
ST,  at  this  writing,  has  an  ST  BASIC 
from  Atari,  as  well  as  several  other 
versions  of  BASIC  that  should  be 
available  from  third-party  compa- 
nies by  the  time  you  read  this. 

Both  Amiga  BASIC  and  Macin- 


tosh BASIC  abandon  the  line  num- 
bers used  in  previous  BASICs. 
Instead,  meaningful  labels  are  used 
that  identify  sections  of  code  and 
subroutines.  Although  ST  BASIC 
does  have  line  numbers,  you  can 
put  labels  within  lines  and  direct 
subroutines  to  those  labels. 

The  programming  environ- 
ment changes  as  well.  Windows — 
with  separate  areas  for  your  com- 
mands, the  program  listing,  and  the 
program  output — take  the  place  of 
the  single  screen  you  may  be  used 
to.  With  this  system,  you  can  actu- 
ally see  the  program  run  while  the 
program's  code  stays  visible.  Using 
a  mouse,  you  can  click  on  menu 
items  like  RUN  and  LIST  instead  of 
typing  them  in. 

Macintosh  BASIC,  for  ex- 
ample, offers  several  windows:  a 
Command  window  to  take  your  di- 
rections; two  List  windows,  allow- 
ing you  to  have  two  different  parts 
of  the  program  onscreen  at  the 
same  time;  and  an  Output  window 
which  allows  you  to  see  the  results 
of  your  programming.  There  are 
also  programming  tools  that  simpli- 
fy your  efforts.  TRACE  MODE,  a 
debugging  tool  that  can  be 
switched  on  or  off,  highlights  what- 
ever line  in  your  program  is  cur- 
rently executing.  The  new  BASICs 
also  generally  support  the  currently 
popular  mouse  environment,  al- 
lowing you  to  create  your  own  cus- 
tom-designed windows,  pull-down 
menus,  and  dialog  boxes. 

ST  BASIC  is  fundamentally 
similar  to  the  BASICs  you  may 
have  used  on  your  eight-bit  com- 
puter, but  offers  accessibility  to 
windows,  drop-down  menus,  and 
graphic  icons  from  the  GEM  Desk- 
top environment  much  like  Amiga 
BASIC  and  Macintosh  BASIC. 
There  are  actually  four  windows  on 
the  ST  BASIC  screen;  Output,  List, 
Command,  and,  hidden  behind  the 
first  three,  an  Edit  window. 

It  would,  of  course,  be  precipi- 
tate to  conclude  that  the  new  BA- 
SICS represent  the  ultimate  in  man- 
machine  communication.  Rather, 
they  seek  to  offer  a  higher  level  of 
power,  ease,  and  efficiency  to  the 
computer  programmer.  Computer 
languages  are  continually  evolving 
as  the  search  continues  for  ever 
more  effective  methods  by  which 
man  can  interact  with  his  increas- 
ingly intelligent  inventions.  © 
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128 


and 
C-64" 


QENSffl^lONAL 
OOFTWARE 


M  *<  jojr  1)  SICp  ograms  run  U01{T\ISG  SPEED! 


The  complete  compiler 
and  development  pack- 
age. Speed  up  your  pro- 
grams 5x  to  35x.  Many 
options:  flexible  memory 
management;  choice  of 
compiling  to  machine 
code,  compact  p-code  or 
both.  '1 28  version:  40  or 
80  column  monitor  output 
and  FAST-mode  opera- 
tion. '128  Compiler's  ex- 
tensive eo-page  pro- 
grammer's guide  covers 
compiler  directives  and 
options,  two  levels  of 
00  rr  za  ion  "  j  y  „sdg--  [  O  handling,  80  column  hi-res  graphics,  taster, 
higher  precision  math  functions,  speed  and  space  saving  tips,  more,  A  great 
package  that  no  software  library  should  be  without.  128  Compiler    $59.95 

84  Compiler     $39.95 

For  school  or  software 
development.  Learn  C  on 
your  Commodore  witti  our  in- 
depth  tutorial.  Compile  0  pro- 
grams into  last  machine 
language.  C-128  version  has 
added  features:  UnixT«-|ike 
operating  system;  60K  RAfvl 
disk  (or  fast  editing  and 
compiling  Linker  combines 
up  to  10  modules;  Combine 
U/L  and  C  using  CALL;  S1K 
available    for    object     code; 
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^ 


Fast  loading  (8  sec.  1571,  IB  sec.  1541);  Two  standard  I/O  li'brarys  plus 
two  addiliona!  libraries— math  (undions  (sin,  cos,  sqn,  etc.)  &  20+  graphic 
commands  (line,  (ill,  dot,  elc).  C-128       $79  95 

C-64         $59.95 


Easily  create  protessional 
high  quality  charts  and 
graphs  wilhoiit  programming. 
You  can  immediately  change 
the  scaling,  labeling,  axis, 
bar  tilling,  etc.  to  suit  your 
needs.  Accepts  data  Irom 
CalcResult  and  MuttiPlan. 
C-128  version  has  3X  the 
resolution  of  the  '64  version. 
Outputs  to  most  printers. 

C-128        $39.95 
C-64  $39.95 


PowerPlan 

One  of  the  most  powerful  sprsatJsheets  with  integrated 
graphics.  Includes  menu  or  keyword  selections,  online  help 
screens,  field  protection,  windowing,  trig  functions  and  more. 
PowerGraph,  the  graphics  package,  is  included  to  create 
integrated  graphs  and  charls.  C-64  $39.95 
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Technical  Analysis  System  for  the  C-64 
Ada  Compiler  for  the  C-64 
VideoBasic  Language  for  the  C-64 


$59.95 
$39.95 
$39.95 


Remarkably  easy-to-use 
interactive  drav^ing  pack- 
age (or  accurate  graphic 
designs.  New  dimension- 
ing (eatures  to  create 
exact  scaled  output  to  all 
major  dot-matrix  printers. 
Enhanced  version  allows 
you  to  input  via  keyboard 
or  high  quality  lighlpen. 
Two  graphic  screens  (or 
COPYing  from  one  to  the 
other.  DRAW.  LINE,  BOX, 
CIRCLE.  ARC,  ELLIPSE 
available.  FILL  objects 
_  with  preselected  PAT- 
TERIMS;  add  TEXT;  SAVE  and  RECALL  designs  to/from  disk.  Define  your  own 
ibrary  of  symbols/objects  with  the  easy-to-use  OBJECT  fvlANAGEf^ENT 
SYSTEfv4-slore  up  to  104  separate  objects.  0-1 28  $59,95 

C-64    $39.95 
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Not  just  a  compiler,  but  a 
complete  system  for  develop- 
ing applications  in  Pascal 
with  graphics  and  sound 
features.  Extensive  editor 
wilh  search,  replace,  auto, 
renumber,  elc.  Standard  J  & 
W  compiler  that  generates 
(asl  machine  code.  If  you 
wani  to  learn  Pascal  or  to 
develop  software  using  the 
best  tools  available-SUPER 
Pascal  is  your  first  choice. 
C-12e  $59.95 
C-e4        $59.95 


OTHER  TITLES  AVAILABLE: 

COBOL  Compiler 

Now  you  can  learn  COBOL,  the  most  widely  used  commercial 
programing  language,  and  learn  COBOL  on  your  64.  COBOL 
is  easy  to  learn  because  its  easy  to  read.  COBOL  Compiler 
package  comes  complete  with  Editor,  Compiler,  Interpreter 
and  Symbolic  Debugger.  C-64  $39.95 

Personal  Portfolio  Manager 

Complete  portfolio  management  system  for  the  Individual  or 
professional  investor.  Easily  manage  your  portfolios,  obtain 
up-to-the-minute  quotes  and  news,  and  perform  selected 
analysis.  Enter  quotes  manually  or  automatically  through 
Warner  Computer  Systems,  C-64  $39.95 

Xper 

XPER  is  the  first  "expert  systenf  for  the  C-1 28  and  C-64.  While 
ordinary  data  base  systems  are  good  lor  reproducing  facts, 
XPER  can  derive  knowledge  from  a  mountain  of  facts  and  help 
you  make  expert  decisions.  Large  capacity.  Complete  with 
editing  and  reporting.  C.64  $59.95 

C- !  26'iincl  CSi  rat  fradflmBiks  ot  Commodor*  Busirwss  Machine*  Inc- 


Abacusl^uSoftware 


P.O.  Box  7219  Dept.  C6  Grand  Rapids,  Ml  49510  ■  Telex  709-101  ■  Phone  (616)  241-5510 

Call  now  for  the  name  of  your  nearest  deaier.  Or  to  order  directly  by  credit  card,  MC,  AMEX  of  VISA  call  (616) 
241-5510.  Other  software  and  books  are  avaiiable-Call  and  ask  for  your  free  catalog.  Add  $4.00  for  shipping 
per  order.  Foreign  orders  add  $12.00  per  item.  Dealer  inquires  welcome-1400-f-  nationwide. 


68000 


Kathy  Yakal,  Assistant  Features  Editor 


A  programming  language  written  almost  15  years 

ago  for  a  specific  purpose — to  develop  an  operating 

system  for  a  mainframe  computer — has  been 

getting  a  lot  of  attention  in  the  microcomputer 

community  lately.  C,  a  language  described  by 

many  as  simple,  elegant,  and  powerful,  is  especially 

well-suited  for  programming  the  68000  chip 

housed  in  the  Commodore  Amiga,  Atari  ST,  and 

Apple  Macintosh. 

Cis  a  beguiling  language.  In 
structure  and  difficulty,  it 
falls  somewhere  between 
machine  language  and  a  higher  lev- 
el language  such  as  BASIC  or  Pas- 
cal. C  was  developed  in  1972  by 
Dennis  Ritchie,  who  wrote  it  specif- 
ically to  design  the  UNIX  operating 
system  running  on  the  PDP-11  (a 
mainframe  computer).  Though 
some  mainframe  and  minicomput- 
er programmers  have  chosen  to  use 
it  in  the  years  since,  it's  enjoying  a 
renewed  popularity  with  the  ad- 
vent of  the  new  68000-based  ma- 
chines: the  Atari  ST,  the  Apple 
Macintosh,  and  the  Commodore 
Amiga. 

C  is  the  language  of  choice  for 
the  Amiga  and  the  ST,  say  many 

26     COMPUTEI     July  1986 


programmers,  for  four  main  rea- 
sons. First,  its  basic  command  struc- 
ture is  quite  concise,  but  can  be 
extended  by  individual  program- 
mers for  specific  functions.  Second, 
its  relative  closeness  to  actual  ma- 
chine language  gives  the  program- 
mer tremendous  power.  Third, 
there  is  a  harmony  between  the 
68000  microprocessor  and  the  C 
language;  68000  machine  language 
itself  supports  C  constructs,  thanks 
in  part  to  the  similarities  between 
the  PDP-11  and  the  68000.  Finally, 
and  perhaps  most  important  for  the 
home  computer  market,  programs 
written  in  C  on  one  68000-based 
machine  can  be  more  easily  and 
quickly  transported  to  another 
computer  than  can  programs  writ- 
ten in  many  other  languages. 

Programmers  consider  several 
factors  when  deciding  what 
language  to  use.  Of  course, 
everyone  has  favorites  based  on 
personal  experience,  but  the  physi- 
cal capabilities  of  individual  com- 
puters and  the  type  of  application 
being  written  necessarily  create 
some  restrictions. 

Just  as  some  computers  are  de- 
signed  to   support   specific   Ian- 


guages,  some  languages  have  been 
developed  to  support  specific  appli- 
cations. You  could  accomplish  al- 
most anything  in  almost  any 
language,  but  there  is  significant 
variability  between  languages  in 
the  efficiency  of  program  writing 
and  excecuting.  Some  languages 
are  simply  more  appropriate  than 
others  for  specific  jobs. 

One  of  the  first  high-level  lan- 
guages, FORTRAN,  was  written  in 
1954,  and  is  geared  especially  for 
scientific  formula  translation.  CO- 
BOL, developed  around  the  same 
time,  best  supports  business  appli- 
cations. BASIC  and  Pascal  were  in- 
tended to  be  teaching  languages, 
sometimes  making  them  unwieldy 
for  particular  applications. 

C,  written  to  develop  an  entire 
operating  system,  is  less  applica- 
tion- and  machine-spedfic,  and  is 
amenable  to  various  kinds  of  pro- 
grams. Its  skeletal  architecture  al- 
lows programmers — once  they've 
learned  the  sparse  command  struc- 
ture— to  add  their  own  routines, 
commands,  and  input/output  func- 
tions called  libraries  (standard  C 
Ubraries  are  also  available  commer- 
cially). It's  really  like  the  construc- 
tion of  an  onion:  You  have  a  tiny 
seed  in  the  center  and  layer  upon 
layer  covering  it  up.  And  the  fact 
that  input/output  is  extrinsic  to  the 
C  language  makes  for  greater  port- 
ability. 

So  even  though  the  language 
itself  is  small,  you  can  end  up  with 
very  large  programs  if  you  don't 
economize  on  your  use  of  libraries, 
warns  Tom  Hospelhom,  senior  an- 
alyst at  Mindscape  Software. 
"Sometimes  you  have  very  small  C 
programs  compiling  to  what  seems 
to  be  a  very  large  object,"  he  says. 
"But  what  that's  usually  caused  by 
is  you've  included  a  standard  li- 
brary of  input/output  functions 
with  your  object  code  even  though 
your  program  may  not  actually  use 
those."  So  if  you're  serious  about 
keeping  your  finished  C  programs 
small,  you  want  to  avoid  the  auto- 
matic inclusion  of  a  standard  li- 
brary. You  can  exclude  any  unused 
functions. 

C's  affinity  with  machine  lan- 
guage gives  the  user  greater  pro- 
gramming power,  but  can  also 
create  big  problems  for  novice  pro- 
grammers. Some  programmers  sug- 
gest that  C  is  best  not  attempted  by 


A  Sample  Of  C 

Here  is  an  example  program  which  prints  the  numbers  from  one  to  ten 
and  describes  each  number  as  odd  or  even.  Program  1  is  written  in  Amiga 
BASIC.  By  comparing  it  to  Program  2,  the  C  version,  you  can  get  a  sense 
of  some  of  the  differences  between  the  two  languages.  For  one  thing,  C 
makes  liberal  use  of  braces^  {  } — to  group  statements  into  a  compound 
statement,  or  block,  which  the  language  treats  as  a  single  statement. 
Functions  are  called  by  supplying  the  name  of  the  function,  with 
arguments  in  parentheses — the  entire  program  is  a  function  called 
main( ).  Variables  are  declared  before  use,  and  comments  are  framed 
with  /*  and  */  characters. 

Program  3  is  C  in  a  somewhat  more  condensed,  but  less  easily 
visualized  format.  The  IF-ELSE  construct  has  been  collapsed  into  one 
line  using  the  conditional  operator  (? :)  to  designate  the  alternative  results 
of  the  test.  This  brief  sample,  however,  can't  do  justice  to  the  qualities 
which  make  C  an  increasingly  popular  language.  There  are  several 
excellent  texts  on  C  for  beginners,  available  in  most  bookstores,  which 
will  give  you  a  sense  of  the  language's  flexibility,  power,  and  efficiency. 

Program  1: 

REM  This  is  a  demo  program  written  in  AmigaBASIC 

PRINT  "The  numbers  from  1  to  10;" 

FOR  count  =  1  TO  10 
PRINT  count;"   "; 

IF  (count  AND  1)  =  1  THEH  PRINT  "odd"  ELSE  PRINT  "even" 
NEXT  count 

Program  2: 

/*  This  is  a  simple  demonstration  of  a  C  program, 
written  for  the  Lattice  C  compiler  on  the  Amiga 
computer  */ 

main( ) 
I 

int  count; 

printfC'The  numbers  from  1  to  10!\n"); 

for  (count  =  l;count  <=  10;count++) 

printf("  %d   ",  count); 

if  (count  &  1  ==  1) 

printf("odd\n"); 
else 

printf ("even\n") J 
} 
} 

Program  3: 

/*  A  more  compact  C  version  of  the  demo  program  */ 

main( ) 

( 

int  count; 

printf ("The  numbers  from  1  to  10:\n"); 
for  (count  =  0;-l-+count  <=  10; 

printf ("  %d  %s\n" .count, count  &  1  7  "odd"  :  "even")); 
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THE  CMO  ADVANTAGE 


TO  ORDER 
CALL  TOLL  FREE 

1-800-233-8950 

DEPARTMENT  A207 

OR  MAIL  YOUR  ORDER  TO: 

COMPUTER  MAIL  ORDER 

Department  A207 

477  E.  Third  Street 

Williamsport,  PA  17701 

POLICY 

Add  3%  IMinimuan  57,001  shipping  and  handl- 
ing Larger  shipments  may  require  adbiliOfial 
charges.  Persona!  and  company  checks  require 
3  wteks  tt  clear.  For  (aster  detiverv  use  yoitr 
credit  card  or  send  casltiet's  checli  v  bank 
money  order.  Pennsylvania  residents  add  S% 
sales  tax.  Ail  pfices  are  subject  to  change  and 
all  items  are  sutjecl  to  availability.  Defective  soft- 
ware will  be  replaced  with  ttie  sarrie  item  only. 
Hardware  will  be  repaired  or  replaced  at  our 
discretion  within  the  the  lenns  and  limits  of  the 
manufacturers  warranty.  We  cannot  goarantee 
compatibility.  All  sales  are  final  and  returned 
shipments  are  subject  to  i  restocking  fee. 

EDUCATIONAL  INSTITUTIONS 

CALL  TOLL  FREE 
1-800-221-4283 

CUSTOMER  SERVICE 

&  TECHNICAL  SUPPORT 

1-717-327-1450 

CANADIAN  ORDERS 
1-800-268-3974 

Oniano/Quebec 

1-416-828-0866 

In  Toronto 

1-800-268-4559 

Olhsr  Provinces 

TELEX:  06-218960 

2505  Dunwin  Drive, 

Mississauga,  Ontario 

Canada  L5L1T1 

All  prices  shown  are  for  U ,  S,  A,  orders.  Call  the 
Canadian  Office  lor  Canadian  prices. 


HOME  COMPUTERS 


THE  CMO  ADVANTAGE 

^  Nex\  day  shipping  on  all  in-stock  items, 

^  Fret  easy  access  order  inquiry. 

^  Orders  from  outside  Pennsylvania  save 

slate  sales  tax. 
^  Free  technical  support  from  our  factory 

trained  technicians, 
f  There  is  no  limit  am)  no  deposit  on  CO.D. 

orders. 
^  There  is  no  extra  charge  for  using  your 

Visa  or  MasterCard  and  your  card  Is  n« 

charged  until  we  ship 
^  No  wailing  period  (or  cashier's  checks. 
^  We  accept  purchase  orders  from  qualified 

corporations.  Subject  to  approval. 
^  Educational  discounts  available  to 

qualified  institutions.  (See  the  loll  tree 

educalional  phone  number  above.) 
^  FREE  CATALOG  I^EMBEftSHIP 


ATARI 

eSXE  (e4K)... S6S.S8 

1 30XE  (1 2aK| SI  39.00 

9205T  (5 1 2K) S369.00 

52QST  Monochrome  System 

•  520ST  with  modulator 

•  disk  drive 


LOW,  LOW 
SYSTEM  PRICE 


•  mouse 

•  logo 

•  Base  $64900 

•  1  St  Word 

•  monochrome  monitor 
520ST  Color  Systsm 

•  S2DST  with  modulator 

•  disk  drive 

•  mouse  j_otv,  LOW 

•  logo  SYSTEM  PRICE 

•  Basic  $79900 

•  1st  Word 

•  color  monitor 

aOQXL  64K - CALL 

1010  Recorder $49.99 

1050  Disk  Drive S119.00 

1020  Printer S29.99 

1027  Letter  Quality  Printer $129.00 

1030  Direct  Conned  Modem SS9.99 

Comrex  220  Atari $89.99 


APPLE 

APPLE  lie CALL 

APPLE  lie CALL 

lie  LCD  Display S329.00 

COMMODORE 

Amiga  Pack«g« 

•  512K         '2  Drive 

•  RGB  Monitor $1599.00 

C64  Package 

•  CM  •  C1541 

.  Taxan  220.,.. $499.00 

C12&  Package 

•  C128  •   C1571 

•  NAP8562  Ivlonitor $779.00 

C12e  Computer SZ69.00 

C1ST1  (Dlik  Drive 

for   C12SI S249.00 

CI 902  (RGB  13"  Monitor 

lor  CIZe CALL 

C1670  [Modem  for  C128)S179.00 

C1530  Oalaseilo S39  99 

C1660  Auto  Modem $59.99 

DPS  1101  Daisy  Printer $339  00 

Comrex  220  (064  Interface)  .  $69.99 
Xetec  SuperGraphix  BK S69.99 


PORTABLE  COMPUTERS 


NEC 

PC-B401    LS $639-00 

PC-82ai  Portable  Compmer.... $339.00 

PC-8231  Disk  Drive $599.00 

PC-8221A  Themial  Printers $149.00 

PC-a281A  Data  Recorder $99.99 

PC-B201-06  8K  RAM $79.99 

SHARP 

PC-1350 3149.00 

PC.1261 $149.00 

PC-1500A $169.00 

PC-1260A $89.99 

CE.125  Primer/Cassette $129,00 

CE-150  Color  Prinler  Cassette. $149.00 
CE-161   16K  RAIl^ $129,00 


ACCESSORIES 


mcM  PACK-.P.n 

41CV SIMOO 

41CX $199,00 

HP  11C $49,99 

HP  12C $75.99 

HP  15C $75.99 

HP  16C , $89-99 

HPIL  ivlodule $98.99 

HPIL  Cassette  or  Printer $359.99 

Card  Reader $143.99 

Extended  Funiaion  Module $63.99 

Time  Module $63.99 

Wa  itock  the  full  line  of 
HP  calculator  products 


DISKETTES 


AMARAY 

80  Column  Printer  Stand $14.99 

CURTIS 

Side  Mount  SS-i $19.99 

Side  Mount  AT  SS-2 $34.99 

Universal  Stand  SS-3 $19.99 

Diamond  SP-1 $29.99 

Emerald   SP-2 $39.99 

Sapphire  SPF-1 $49.99 

Ruby  SPF-2 $59.99 

DATA  SHIELD 

300  Watt  Backup $379.00 

500  Watt  Backup $589.00 

Turbo  350  Watt  Backup $449,00 

P125  Power  Director $99.99 

P150  Power  Director  w/Modern$1 1 9.00 

KENSINGTON 

Master  Piece .,..$99.99 

Master  Piece  -i- $119,00 

KEYTROHICS 

KB5150/KB5151/KB5151Jr CALL 

KB5152B/Ke5153/KB5149Jr CALL 

MEMORY  CHIPS 

4164  RAM  Chips (ea.)$1.99 

128  RAM  Chips (ea.)  $12.99 

256  HAM  Chips (ea.)  $10.99 

■Polaroid 

Palette , $1399.00 

Power  Processor $229.00 

lifuminaled  Slide  Mounter $39.99 

Polacolor  2  Pack  film $18.99 


Elephant  5V.  "  SS^SD S9.99 

Eleptiant  S'A"  SS/DD $11.99 

Eleptiant  5Vj"  DS/DD $14.99 

Elepnant  Premium  DS/DD(50(....$69.99 
Eleptiant  3'A"  SS/DD $24.99 

IBM 

SVi"  DS/DD  llopfjy  disks 

(Box  of  10) $26.99 

GENERIC 

DS/DD  w/Flip'n'File  10 $11.99 

maxell 

SVs"  SS/DD  (10) $13.99 

awii  5  pack  SS/DD/Case $9,99 

3W  DS/DD  (10) $29,99 

SV."  MD-1  SS/SD  (10) $11,99 

SVa"  MD-2  DS/DD  (10) $16.99 

SVi"  MD-Z-HD  for  AT  (10) $29,99 

ii^Vferbatim. 

5Vi"  SS/DD $12.99 

5V«"  DS/DD $24.99 

Disk  Analyzer $24.99 

DISK  HOLDERS 

AMARAY 

50  Disk  Tub  5V4" S9.99 

30  Disk  Tub  3Vi" $9  99 

INNOVATIVE  CONCEPTS 

Flip'n  File   10 $2.49 

Flip'n  File  50 $14.99 

Flip'n  File  50  w/lock $19.99 

Flip'n  File  Data  Case $9.99 


MODEMS 


Mmchor 

Volksmodem $59.99 

Volksmodem  300/1200 $189.00 

Signalman  Express $259. IX) 

Ligtitning  2400  Baud $399.00 

Expressi  (PC  Halfcard) S189.00 

6470  (64/128)  300/1200  Baud..$139.00 

Reach  1200  Baud  Half  Card.. ..$399.00 


DIGITAL  DEVICES 

AT300  ■  300  Baud  (Atari) $99.99 

EVEflEX 

1200  Baud  Internal  (IBM/PC).,  $179.00 

Smartmodem  300 $139.00 

Smanmodem  12O0 $389.00 

Smartmodem  1200B $359.00 

Smanmodem  2400 $599.00 

l/lcromodem  lie.,,. $149.00 

Smart  Com  II $89.99 

Ctironograpti $199.00 

Transel  1000 $309.(» 

[Ngyaticy>| 

Smart  Cat  Plus $29900 

J.Cat $99-99 

Novation  2400 $499.00 

Apple  Cat  II $219-00 

212  Apple  Cat  II $379.00 

Apple  Cat  212  Upgrade $229,00 


Quadmodem  II 

300/1200 $339.00 

300/1200/2400 $499.00 

K]    SUPRA 

MPP.1064  AD/AA  (C-64) $69.99 


DRIVES 


HARD 

CORE 

AT20.AT72MB CALL 

EVEREX 
60  Meg  Internal  Backup  SystemS799.00 

IOMEGA 

A110H  Single  10 CALL 

A210H  10   +   10 - .CALL 

A120H  Single  20 CALL 

A220H  20   +  20 CALL 

Save  on  10  S  20  Carts CALL 

IRWIN 

Tape  Backup CALL 

KITS 

10  Meg  witfi  controller $399,00 

20  Meg  witti  controller $499,00 

PRIAM 

40,  60  MB  Inner  Space CALL 

Stiared  Data CALL 

Shared  Space CALL 

TALLORASS 
25.  35,  50.  80  meg  (PC) 
,, .,, from  $1299,00 

FLOPPY 

ALLIED  TECHNOLOGY 

Apple  11.11 +  , lie  Vi  height $109,00 

INDUS 

Atari  GT $199.00 

C-64  /lae  GT $139.00 

MSD 

S[J1  C-64  Single $219.00 

S02  C-64  Dual ,.„ $469.00 

TANDON 

320K  SW  (PC) $119.00 

TEAC 

320K5'/-" $119,00 


DEPT.  A207 


SOFTWARE  FOR  IBM 


ANSA  SOFTWARE 

Paradox S4  99.00 

ASHTON.TATE 

Framework  II ,..,. $369.00 

dBase  lil  Plus S389.D0 

BATTERIES  INCLUDED 

Isgur  Portfolio S159,00 

BORLAND 

Lighlening $59,99 

Sidekick  (unprotected) S57,99 

HelIeK $59,99 

Travelling  Sidekick 344.99 

Turbo  Prolog - S64.99 

centhal  point 

Copy  II   PC-Backup S29.99 

PC  Option  Board ,.-$84.99 

DECISION  RESOURCES 

Chanmaster $229.00 

Signmaster SI  59.00 

Diagram  Master $209.00 

FIFTH  GENERATION 

Fast  Back 99.99 

FUNK  SOFTWARE 

Sideways $44.99 

HARVARD  SOFTWARE  INC. 

Total  Project  Manager $269.00 

Presentation  Qraptilcs S239.00 

LIFETREE 

Volkswnier  III $159.00 

UVINQ  VIDEOTEXT 

Think  Tank $109,00 

Ready S64.99 

LOTUS 

Symphony CALL 

1-2-3  Version  2 CALL 

MECA  SOFTWARE 

Managing  Your  Money  2.0 S99.99 

Manage  Your  Market SS9.99 

MICROPRO 

Easy $94.99 

WordStar  2000 $239.00 

WordStar   2000  + S289.00 

WordStar  Professional S189.00 

MICRORIM  SOFTWARE 

R:BasB  4000 $249.00 

R;Base  5000 $359,00 

Clout  2.0 $129,00 

MICROSOFT 

Flighl   Simulator $34.99 

MultiPlan $129.00 

Word $249.00 

Mouse $139.00 

MICROSTUF 

Crosstalk  XVI 589.99 

Crosstalk  Mar)<  IV $149.00 

Remote .,$89.99 

MULTIMATE 

Mulli  Male  Word  Proc $219.00 

Advantage S289.00 

On  nie $89.99 

Just  Write ..„. $89.99 

KOUNEMOH 
Intuit $69.99 

NORTON 

Norton  Utilities  3-1,,,,, $57.99 

ONE  STEP 

Golfs  Best $34.99 

PFSi  IBM 

Proof $59.99 

File/Graph (ea).$84.99 

Report $74.99 

Write/Proof  Combo $84.99 

PROFESSIONAL  SOFTWARE 

Write-N-Spell $8999 

THE  SOFTWARE  OROUP 

Enable $329.00 

SATELLITE  SYSTEMS 

Wore)  Perfect  4.1 $219.00 

soRciMnus 

Accounting 

AP/AR/GUINV/OE (ea.)  $299,00 

SuperCalc  III $199,00 

EasyWriter  II  System $239.00 

Super  Project $199.00 

SUBLOQIC 
JBI  $37.99 


PRINTERS 


Canon 

A40,A50,A55 CALL 

LBP-aA1   Laser CALL 

•citizen 

MSP-10  (60  col.l $279.00 

MSP-15  (132  Od.) $389.00 

MSP-JO  (60  col.) $349.(X) 

MSP.2S  (132  col.) $509.00 

crroH 

Prowrlter  7500 $169.00 

Prowriter  1550P $349,00 

Starwriter  10-30 $399.00 

3500  Tri  Printer $1499.00 

corona 

Lazer  LP-300 $2799.00 

DIABLO 

620  Daisywheel $299.00 

D25  Daisywtieel $549.00 

635  Daisywheel ,.$1099.00 

D80IF  Daisywheel CALL 

d*isvwriter 

2000 $699.00 

EPSON 

Homawriter  10,  LX-80 CALL 

FX-95,  FX-286.  RX-100 CALL 

DX-10.  OX-20.  DX.35 CALL 

SQ-2000,  Hi-80.  HS-80.  AP-80 CALL 

LO-800.    LQ-100Q CALL 

auKr 

6000  Letter  Quality CALL 

6100  Letter  Quality, CALL 

6200  Letter  Quality CALL 

6300  Letter  Quality CALL 

6500  Letter  Quality CALL 

5510  Dot  l^atrlx  Ckrior CALL 

LEOCND 

808  Dol  Matrin  100  cps $179.00 

1080  Dot  Matrix  100  cps $259.00 

13B0  Dol  Matrix  130  cps $289.00 

1365  Dot  Matrix  165  cps $339.00 

SEC 

3000  Series $779.00 

8000  Series $1099.00 

ELF  360 $399.00 

Pinwriler  560 $999.00 

OKIDAIA 

182.  183,  192,  193,  2410,  84 CALL 

Ohimate  10  (Specify  C64;AtarJ)$1 89.00 
OKimate  20  (IBM) CALL 

Panasonic 

KX1080 NEW 

KX1091 $259.00 

KX1092 ...$389.00 

KX1592 $469,00 

KX1595...,.- $659.00 

QuaiJjet $399.00 

Quad  Laser CALL 

500  Letter  Quality $219.00 

550  Letter  Quality $419.00 

600  Letter  Quality S699.00 

SG-tOC  (C64  Interface) CALL 

SB/SD/SG/SR  Series CALL 

Powenype  Latter  Quality CALL 

Tfexas  Instruments 

TI850 $529.00 

TIB55 $639.00 

Tia65 $799.00 

TOSHIBA 

P321  (60  column] $499.00 

P341   (132  ootumn) $799,00 

P351   (132  column) $1049.00 


i 


MULTIFUNCTION  CARDS 


/isr 

RamVantage $349,00 

Rampage-PC $379.00 

Rampage-AT CALL 

Six  Pack  Plus $229.00 

1(0  Plus  II $139.00 

Advantage-AT $399.00 

Preview  Mono $299.1X1 

PC  Net  Cards $379.00 

5251/11  On-line $569.00 

5251/12  Hemole $579.00 

IRMA  3270.....^^^ $679.00 

IRMA   Print $999.00 

tRMA  Smart  Alec $779,00 

Edge  Card $259. (X> 

Graphics  Edge $219.00 

Magic  Card  II $159,00 

Magic  CariJ  I $99  99 

HERCULEIS 

Graphics $299.00 

Color $159.00 

fficusociiies 

IDEA  5251 $549.00 

INTEL 

PCNC8087  5MHz 

PCNC8087-2  8  MHz CALL 

PCNCS0287  6  MHz FOR 

1010  PC-Above  Board... YOUR 

1110  PS-Above  Board PC 

2010  AT-Above  Board 

MYLEX 
The  Chairman $439.00 

PARACMSF 

Color/Mono  Card $149.00 

Modular  Graphics  Card $199.00 

Mulli  Display  Card $199,00 

Five  Pack  C,  S,  0-384K $99.99 

High  Res  Mono $169.00 

Bob  Board $359,00 

QUADRAM 

Quadpon-AT ,,..$119.00 

L(beny-AT  (128K) $349.00 

The  Gold  Quadboard $449.00 

The  Silver  Quadboard $239.00 

Expanded  Quadboard $199.00 

Liberty , $309,00 

QuadSprint $499,00 

OuadLink $399,00 

OuadColor $199.00 

Ouadboard-AT $399.00 

8600  E.G.A.  card $399.00 

STB 
EGA  Plus $379.00 

TECMAR 

Captain  -  64 $199.00 

Graphics  Master,,.,, $469, (M 

VIOEO-7 
EGA $429,00 

Assr 

Mulli  I/O  (Apple  IIJ $149.00 

DIGITAL  DEVICES 

Ape  Face  (Atari) $49.99 

U-Prinl  A  (Atari) ,„. $54.99 

U-A16/Buffef  (Atari) $74.99 

U-Call  Interface  (Atari) $39.99 

U-Print  C  (C64) $49.99 

P-16  Print  Buffer $74.99 

U-Print  16  apple  lie $89.99 

MICRO  R&D 

Apple  lie  Parallel $49.99 

Kaypro  2000  Parallel $49.99 

C64/128 $59.99 

^Orongefntcra 

Giappler  CD  (C64) $89,99 

Grappler  Plus  (lie,  lie) $89,99 

Grappler  C  (l(o| $89.99 

Grappler  16K  (lie,  lU) $139.00 

Graphicard $69.99 

Seriall  Card $99,99 

Microbulfer  lU  64K $169.00 

QUADR?M^ 

Microlazer (rom  $139.00 

Efazer  (Epson) trom    $79.99 


IBM  PC  SYSTEMS 

Conflgurad  to  your  spacJflcatloni* 

Call  for  Best  Price! 

IBM-PC,  IBM-XT,  IBM-AT 

Salari  (7300).." CALL 

6300 CALL 

corona 

PPC400  Dual  Portable $1289.00 

PPCXT  10  meg  Portable $1989.00 

PC40022  Dual  Desktop $1369.00 

PC400-HD2  to  mag $1989.00 

ITT  X-TRA  TIT 

2S6K.  2  Dnve  System CALL 

256K,10  meg  Hard  Drive  System  CALL 
XP5,  20  meg CALL 

KP-2000  Portable CALL 

Kaypro  PC CALL 

OSAMVO 

MBC  550-2,  MBC  555-2,  MBC  675  Per- 
table,  MBC776,  MBC  880  DeskiopCALL 


Hr-SPER^V 


Sperry-AT as  low  as  $1749,00 

Sperry-IT as  low  as  $2699.00 

Call  for  Specific  Conliguralion! 
All  Models CALL 


PC-138  Series,  PC-148  Series,  PC-t58 
Series.  PC-160  Series,  PC-171  Series, 
AT-200  Series , .CALL 


MONITORS 


Video  300  Green $119.00 

Video  30OA  Amber $129.00 

Video  310A  Amber  TTL .., $159.00 

Color  600  Hi-Res.  RGB $399,00 

Color  722  Dual  Mode ,„ $529.00 

Color  725 CALL 

Color  730 CALL 

MAONAVOX 

8562  RGB/Composite $279.00 

613  TTL  Green $99.99 

623  TTL  Amber $99.99 

NEC 

JB1205A..., $79.99 

JB1270G/127SA (ea.)  $99.99 

JB1280G  TTL  Green $129.00 

JB1285A  TTL  Arabar $129.00 

JC1401  Mulli  Sync  RGB CALL 


PRINCETON 


MAX-12  Amber $179,00 

HX-9  9"  RGB $469.00 

HX-9E  Enhanced $519.00 

HX-12  12"  RGB $469,00 

HX-T2E  Enhanced $559.00 

SR-12  Hi-Res $599,00 

SR-12P  Professional, $699.00 

8400  Ouadohrome  t $499.00 

8410  Quadchrome  II $339  00 

8420  Amberchrome $179.0D 

8S00  Quad  Screen $1449,00 

115  12"  Green $119.00 

116  12"  Amber $129.00 

121  TTL  Green $139,00 

122  TTL  Amber $149.00 

220  14"  Color  Composite $179,00 

620  640)(200  RGB $439,00 

630  640x200  RGB $489.00 

640  720x400  RGB $539.00 


ZVM  1220  Amber $99.99 

ZVM  1230  Green $99.99 

ZVM  1240  IBM  Amber $149.00 

ZVM   135  RGB $459.00 

ZVM   1330  RGB $459.00 

ZVM  1360  RGB  CALL 

ZVM  1380  E  G  Comp CALL 
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All  the  exciting, 

entertaining,  and 

educational  games, 

applications,  and  utilities 

from  COMPUTE!  magazine 

are  now  available  on  disk 

for  your  Commodore, 

Atari,  Apple,  or  IBM 

personal  computer. 

The  COMPUTE!  Disk 


A  new  COMPUTE!  Disk  is  published 
every  month,  rotating  among  the  four 
major  machines  covered  by  COMPUTE!: 
Commodore  64  and  128;  Atari  400/800, 
XL,  and  XE;  Apple  Il-series;  and  IBM  PC, 
PCjr,  and  compatibles. 

Every  three  months  you  can  receive 
a  disk  with  all  the  quality  programs  from 
the  previous  three  issues  of  C0I\4PUTE! 
that  will  run  on  your  brand  of  computer. 

Like  the  popular  COMPUTE!'s  Ga- 
zette Disk,  the  COMPUTE!  Disk  is  ready- 
to-load  and  error-free.  It  saves  you 
valuable  hours  of  typing  time  and  elimi- 
nates typing  errors. 

With  a  subscription,  you  will  receive 
one  disk  every  three  months  for  a  total 
of  four  disks  a  year — for  only  $39.95. 
That  saves  you  $20  a  year  off  the  single- 
issue  cost. 

Or  you  can  order  individual  issues 
of  the  Disk  for  $12.95  a  disk  plus  $2.00 
shipping  and  handling. 


Remember  to  specify  your  type  of 
computer  when  ordering  the  COMPUTE! 
Disk.  You'll  find  more  information  about 
this  month's  COMPUTE!  Disk  in  this 
issue.  (Note:  You'll  need  the  correspond- 
ing issues  of  COMPUTE!  magazine  to  use 
the  Disk  since  the  disk  will  have  no 
documentation.) 

For  fastest  service  when  ordering  a 
subscription  to  the  COMPUTE!  Disk,  call 
toll  free  1-800-247-5470  (in  Iowa 
1-800-532-1272). 

For  more  details  or  to  order  individ- 
ual issues  of  the  COMPUTE!  Disk,  call 
our  Customer  Service  Department  toll 
free  at  1-800-346-6767  (in  New  York 
212-887-8525). 

Please  allow  4-6  weeks  after  placing  an 
order  for  your  first  disk  to  arrive. 
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COMPUTE! 
Subscriber  Services 

Please  help  us  serve  you  better.  If  you 
need  to  contact  us  for  any  of  the 
reasons  listed  below,  write  to  us  at: 

COMPUTEI  Magazine 

P.O.  Box  10954 
Des  Moines,  lA  50340 
or  coil  the  Toll  Free  number  listed  below. 

Change  Of  Address.  Please  allow  us 
6-8  weeks  to  effect  the  change;  send 
your  current  mailing  label  along  with 
your  new  address. 

Renewal.  Should  you  wish  to  renew  your 
COMPUTEI  subscription  before  we 
remind  you  to,  send  your  current  mailing 
label  with  payment  or  charge  number 
Of  call  the  Toll  Free  number  listed  below. 

New  Subscription.  A  one  year  (12 
month)  US  subscription  to  COMPUTEI  is 
$24.00  (2  years,  $45.00;  3  years,  S65.00. 
For  subscription  rates  outside  the  US, 
see  staff  page).  Send  us  your  name 
and  address  or  coll  the  Toll  Free  number 
listed  below. 

Delivery  Problems.  If  you  receive  dupli- 
cate issues  of  COMPUTEI,  if  you  experi- 
ence late  delivery  or  if  you  have  prob- 
lems with  your  subscription,  please  call 
the  Toll  Free  number  listed  below. 

COMPUTEI 
1-800-247-5470 

In  lA  1-800-532-1272 


people  unfamiliar  witli  machine 
language.  At  the  very  least,  a  disci- 
plined, structured  approach  to  C 
programming  is  highly  recom- 
mended. 

"If  you  haven't  done  a  lot  of 
assembly  language  first,  going  from 
Pascal  or  BASIC  to  C  is  going  to  be 
more  of  a  challenge  because  it  is 
getting  closer  to  the  machine,"  says 
Jeff  Steinwedel,  engineering  man- 
ager at  Activision  Software.  "It's 
like  going  from  BASIC  to  assembly 
language.  You  have  to  know  a  lot 
more  about  what's  going  on  inter- 
nally. The  language  system  is  going 
to  be  less  help  in  bailing  you  out  of 
a  situation  or  preventing  you  from 
making  bugs  in  the  first  place.  But  if 
you've  done  a  lot  of  assembly  lan- 
guage programming,  the  transition 
to  C  will  be  fairly  straightforward." 
One  of  the  characteristics 
shared  by  C  and  machine  language 
is  the  ability  to  manipulate  memory 
directly  (in  C,  pointers  are  used).  In 
higher  level  languages,  memory  ac- 
cess is  often  indirect.  And  C's  heavy 
reliance  on  pointers  is  very  power- 
ful in  general,  says  Hospelhorn. 

But  because  you  tend  to  do  a 
lot  of  things  with  pointers,  and  be- 
cause there's  no  error  checking  on 
pointers  to  see  what  they  point  to, 
you  can  wind  up  creating  problems 
for  yourself  if  you're  not  a  disci- 
plined programmer,  he  says.  "It's 
possible  to  damage  your  program, 
to  set  memory  locations  that  you 
didn't  intend  to  if  you're  not  well 
aware  of  where  your  pointers  are 
pointing.  That  can  make  debugging 
sort  of  tedious.  It's  certainly  possi- 
ble for  a  programmer  to  generate 
very  difficult  errors — more  so  than 
some  other  languages  that  do  a  bet- 
ter job  of  checking  things  for  you." 
C,  then,  isn't  a  free  lunch. 
What  C  gives  you  is  a  tremendous 
amount  of  power  and  flexibility,  a 
feeling  of  liberation,  he  says,  be- 
cause most  of  the  things  you  can 
think  of,  you  can  do  in  some  way. 
But  with  that  liberation  comes  a 
certain  amount  of  responsibility. 
"It's  always  best  to  plan  things  out 
before  forging  ahead,  but  it  might 
be  a  little  more  true  in  C." 

And  there's  a  big  payoff  after  a 
C  program  is  successfully  complet- 
ed and  debugged:  Translating  that 
program  to  run  on  another  68000- 
based  computer  is  easier  than  trans- 
porting a  program  from,  say,  an 


Apple  II  to  an  Atari  800.  Part  of  the 
reason  for  this,  of  course,  lies  in  the 
memory  limitations  of  the  eight-bit 
machines,  "When  you're  in  a  very 
constrained  machine  without  a  lot 
of  memory,  like  the  Apple  II,  you 
tend  to  do  a  lot  more  in  assembly 
language  because  you  don't  have 
the  space,"  says  Steinwedel.  "With 
an  Atari  1040  ST  with  a  megabyte 
of  memory,  it  probably  isn't  going 
to  hurt  you. 

"But  the  real  advantage  is  to  be 
able  to  produce  the  code  quickly 
and  rapidly  transport  it  from  one 
environment  to  another.  Some- 
thing running  in  GEM  on  an  IBM 
can  move  very  quickly  to  the  ST." 
There's  one  additional  reason 
for  the  popularity  of  C  on  the 
68000-based  machines.  It's  often 
mentioned  almost  as  an  after- 
thought, but  it's  significant.  There 
are  currently  many  good  C  compil- 
ers available.  Other  languages 
aren't  as  well-supported  at  this  time 
with  efficient,  tested  compilers.  Lat- 
tice (Glen  Ellyn,  IL)  and  Manx  Soft- 
ware Systems  (Shrewsbury,  NJ) 
publish  C  compilers  that  are  enjoy- 
ing popularity  with  68000-based 
computer  programmers,  as  do  sev- 
eral other  software  publishers. 
There  are  also  versions  of  interpret- 
ed C  available,  for  programmers 
who  want  to  debug  more  easily. 
Some  use  interpreters  to  write  the 
programs  and  then,  after  all  the 
problems  are  ironed  out,  run  the 
source  code  through  a  compiler  for 
the  greatest  runtime  efficiency. 

Although  the  friendly  user  in- 
terfaces of  the  Apple  Macintosh, 
Atari  ST,  and  Commodore  Amiga 
have  enticed  nontechnical  consum- 
ers to  purchase  them  as  applica- 
tions machines,  sales  of  languages 
and  how-to  books  and  other  pro- 
gramming utilities  indicate  that 
many  buyers  are  planning  to  write 
their  own  programs.  The  special 
benefits  of  C  on  68000  machines 
recommend  it  to  experienced  ma- 
chine language  programmers.  Like- 
wise, people  who  have  worked 
with  higher  level  languages  and 
want  to  move  a  bit  closer  to  the 
inner  workings  of  the  computer 
might  want  to  sample  this  special 
way  of  communicating  with  their 
machines.  A  decade  and  a  half  after 
its  inception,  the  C  programming 
language  is  approaching  a  new  level 
of  popularity.  ©  I 
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Top  Five 

Free  Programs 

For  Your 
Computer 


Arlan  R.  Levi  tan 


Good  software  doesn't  have  to 
be  expensive.  You  can  accu- 
mulate a  respectable  software 
library  merely  by  taking  ad- 
vantage of  the  thousands  of 
programs  in  the  public  do- 
main—that is,  programs  which 
are  given  away  free  by  their 
authors.  Another  alternative, 
the  "shareware"  concept,  lets 
you  test-drive  a  program  for 
free  and  make  a  voluntary  con- 
tribution if  you  like.  Here's  a 
guide  to  public  domain  soft- 
ware and  shareware,  plus  the 
results  of  a  survey  in  which 
users  all  over  the  country  voted 
for  their  top  five  favorites. 


Does  the  thought  of  paying 
more  for  a  program  than 
you  laid  out  for  your  com- 
puter make  you  grumpy  and  irasci- 
ble? Cheer  up.  There's  a  wealth  of 
programs  available  for  your  com- 
puter that  cost  little  or  nothing  at 
all.  Public  domain  and  shareware 
programs  can  provide  you  with  a 
never-ending  supply  of  grist  for 
your  computer's  mill. 

The  idea  of  public  domain  soft- 
ware has  been  around  since  the 
early  computer  hobbyists  first  start- 
ed sharing  their  programs  wdth 
each  other.  People  would  try  run- 
ning each  other's  programs,  suggest 
improvements,  or  make  the  im- 
provements themselves.  Few  peo- 
ple copyrighted  their  programs 
because  they  were  hobbyists  rather 
than  software  authors  trying  to 
make  a  living.  Legally,  all  it  takes  to 
place  a  program  in  the  public  do- 
main is  for  the  author  to  declare  it 
so.  (Of  course,  this  excludes  most 
programs  published  in  magazines 
and  books,  which  are  nearly  always 
copyrighted  to  protect  the  authors.) 
Public  domain  programs  can 
be  freely  exchanged  between  indi- 
viduals  or  distributed  by  user 


groups  and  computer  bulletin 
board  systems  (BBSs).  They  come 
with  no  warranties,  packaging,  or 
customer  support.  They  are  gifts  to 
the  public  and  vary  in  quality  from 
marginal  to  very  good. 

To  determine  which  public  do- 
main programs  are  the  most  popu- 
lar among  users^  in  April  we 
conducted  a  survey  over  three  com- 
mercial  information  services: 
CompuServe,  The  Source,  and  Del- 
phi. Below  are  the  results  of  this 
informal  survey.  For  each  personal 
computer,  we've  listed  the  top  five 
programs.  The  type  of  program  is 
identified  within  parentheses. 

We  have  excluded  from  con- 
sideration programs  that  are  not 
truly  in  the  public  domain,  includ- 
ing programs  which  elicit  a  fee  for 
documentation,  and  programs 
which  have  been  published,  are  in 
widespread  use,  but  are  definitely 
not  in  the  public  domain — such  as 
COMPUTEl's  own  SpeedScript,  for 
example. 

You'll  notice  that  many  of  the 
popular  programs  on  the  list  are 
terminal  programs.  This  is  probably 
due  to  the  fact  that  the  survey  was 
conducted  online  among  telecom- 
puting enthusiasts. 

To  obtain  copies  of  any  of 
these  programs,  try  contacting  your 
local  user  group  or  logging  onto  a 
BBS  or  commercial  information  ser- 
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vice.  Friends  and  coworkers  are 
also  valuable  sources  for  public  do- 
main programs. 

Another  type  of  freely  distrib- 
uted software  that  is  some- 
times confused  with  public 
domain  software  is  shareware  (also 
called  user-supported  software).  The 
concept  of  shareware  came  about  as 
a  response  to  the  negative  aspects  of 
marketing  software  commercially. 

It  seems  that  almost  everybody 
likes  to  complain  that  software  is 
too  expensive.  Critics  of  the  soft- 
ware industry  claim  that  prices  are 
inflated  by  a  charge-what-the- 
market-will-bear  attitude  as  the 
product  filters  through  distribution 
channels.  The  manufacturer  typi- 
cally sells  to  a  distributor,  who  in 
turn  sells  to  a  retailer.  Each  middle- 
man adds  a  markup.  The  author  of 
the  software  receives  only  a  small 
percentage  of  the  selling  price. 

Critics  argue  that  this  practice 
causes  a  serious  problem:  The  per- 
ception of  high  prices  encourages 
unauthorized  duplication  of  soft- 
ware. This  leads  to  a  classic  conflict 
between  the  manufacturers  and  the 
software  pirates.  Manufacturers 
may  be  tempted  to  boost  their 
prices  to  make  up  for  expected 
losses  to  piracy,  and  pirates  may 
justify  copying  because  they  say 
prices  are  unreasonably  high. 

For  these  and  other  reasons, 
some  software  authors  decide  to 
market  their  programs  themselves. 
There  have  been  few  success  stories 
among  those  who've  tried  this  ap- 
proach. The  authors  attempt  to 
work  within  the  established  mar- 
ketplace, but  usually  fail  because 
they  lack  the  resources  necessary  to 
promote,  advertise,  and  distribute 
their  product. 

About  four  years  ago,  a  pro- 
grammer named  Andrew 
Fluegelman  wrote  a  terminal 
program  for  IBM  computers  called 
PC-Talk  111.  To  distribute  his  pro- 
gram, Fluegelman  combined  as- 
pects of  both  public  domain  and 
commercial  software  to  come  up 
with  a  new  category  he  called 
Freeware.  Freeware  is  based  on 
three  concepts: 

•  Before  buying  a  program, 
computer  users  should  have  the  op- 
portunity to  fully  assess  its  value  by 


using  it  extensively  to  determine 
whether  it  serves  their  needs. 

•  Original  software  of  high 
quality  written  by  independent  au- 
thors will  be  supported  by  the  per- 
sonal computing  community. 

•  Copying  of  these  programs 
should  be  encouraged,  rather  than 
discouraged.  The  ease  of  dissemi- 
nating programs  outside  traditional 
commercial  channels  should  be  ex- 
ploited by  software  authors  to  max- 
imize distribution. 

Fluegelman  actually  trade- 
marked  the  term  Freeware,  so  as 
these  ideas  spread  and  other  au- 
thors began  following  suit,  the  term 
shareware  was  coined  for  general 
use.  Here's  how  shareware  typical- 
ly works: 

Anyone  can  get  a  copy  of  a 
shareware  program.  Usually,  you 
obtain  it  from  a  local  user  group  or 
BBS.  Since  there  is  no  packaging  or 
manual,  any  documentation  is  gen- 
erally in  the  form  of  a  text  file  on 
the  disk  or  BBS.  You  must  print  out 
a  hardcopy  if  you  want  a  manual 
for  reference  purposes. 

Shareware  programs  contain  a 
notice  suggesting  that  you  send  a 
certain  contribution  to  the  author  if 
you  find  the  program  useful.  The 
contribution  is  voluntary,  and  even 
if  none  is  made,  you're  encouraged 
to  share  the  program  with  others. 

Although  no  shareware  au- 
thors are  reported  to  be  making  a 
killing,  many  are  said  to  be  realiz- 
ing a  steady  stream  of  supplemen- 
tal income. 

How  good  is  shareware?  The 
best  of  it  is  quite  good  indeed,  and 
often  better  suited  to  the  needs  and 
abilities  of  casual  users  than  more 
expensive  commercial  programs.  If 
you're  willing  to  do  vrithout  fancy 
manuals  and  can  rely  on  fellow  users 
for  technical  support,  shareware 
may  be  right  for  you. 


Here  are  the  lop  five  freely 
distributed  programs  for 
each  popular  personal 
computer.  Shareware  programs  are 
denoted  with  an  asterisk  (*).  You'll 
notice  that  only  four  programs  are 
listed  for  the  Commodore  64/128. 
That's  because  the  other  programs 
which  received  votes  are  not  truly 
in  the  public  domain — including 
two  which  are  copyrighted  by 
COMPUTE!. 
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Commodore  64/128 

Comm  Term  (Terminal  program) 
Haunted  Hill  (Came)* 
Disk  Doctor  128  (Utility) 
Blue  Thunder  (Game) 

Atari  400/800/XL/XE 

AMIS  (Bulletin  board  system) 
AMODEM  (Terminal  program) 
MYRIAPEDE  (Game) 
POKEY  Player  (Music) 
AMENU  (Program  autoloader) 

Atari  ST  Series 

STerminal  (Terminal  program) 
STCalc  (Calculator  desk  accessory)* 
Megaroids  (Game) 
RMDISK  (RAM  disk  utility) 
COPY  (File  utility  for  single-drive 
systems) 

Apple  II  Series 

EAMON  (Adventure  gome) 
FreeWriter  (Word  processor)* 
EVE  (Terminal  program)* 
RAMDISK128  (RAM  disk  utility) 
ABBS  (Bulletin  board  system) 

Commodore  Amiga 

Aterm  (Terminal  program) 
StarTerm  (Terminal  program) 
Mandelbrot  (Graphics  demo) 
Hack  (Adventure  game) 
EMACS  aext  editor) 

IBM  PC /PCjr 

MEMBRAIN  (RAM  disk  utility) 
PROCOMM  (Terminal  program)* 
PC-File  (Database  manager)* 
RBBS  (Bulletin  board  system) 
PC-Write  (Word  processor)* 

Apple  Macintosh 

Red  Ryder  (Terminal  program)* 
BINHEX  (File  conversion  utility)* 
MazeWars  (Game) 

VMCO  (Vocal/visual  terminal  program) 
ResEdit  (Resource  editor) 

Texas  Instruments  TI-99/4A 

Fast-Term  (Terminal  program) 

Disk  Manager  1000  (Disk  cataloger) 

FUNL  Writer  (Word  processor) 

Neaflist  (Utility) 

MassCopy  (Utility)  © 
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You  float  high  above  a  distant  planet, 
controlling  robot  armies  below.  Can 
you  take  control  of  the  priceless  min- 
ing turfplanetside,  or  will  your  oppo- 
nent's robot  crews  prevail?  To  win  at 
this  thoughtfully  designed,  engaging 
strategy  game,  you'll  need  foresight 
and  conceptual  skills  rather  than  a 
quick  hand  on  the  joystick.  The  origi- 
nal version  is  written  for  the  Commo- 
dore 118.  V^e've  programmed  new 
versions  for  the  Commodore  64,  Apple 
11  series,  IBM  PC/PCjr.  Atari 
400/800/XL/XE,  and  the  Amiga.  A 
joystick  is  required  to  play  the  Com- 
modore 128  and  64  versions.  The  IBM 
PC/PCjr  version  requires  Cartridge 
BASIC  for  the  PCjr  and  BASJCA  plus 
a  color /graphics  adapter  for  the  PC. 
The  Atari  version  requires  a  joystick 
and  at  least  4SK  of  memory.  The 
Amiga  version  requires  512K. 


"Hex  War"  is  a  two-player  strategy 
game  that  can  be  played  five  differ- 
ent ways,  and  there  are  limitless 
variations.  But  the  basic  premise  is 
always  the  same:  You  and  an  oppo- 
nent move  armies  on  a  field  of 
hexagons,  attempting  to  capture 
territory. 

The  goal  of  the  first  two  games 
is  simple:  capture  the  capital  city  of 
the  other  player.  In  game  1,  the 
capital  cities  are  far  apart;  you  must 
devote  some  of  your  armies  to  de- 
fending your  own  capital  while  at- 
tempting to  breach  the  walls  of  the 
other  capital.  Game  2  puts  the  capi- 
tals near  each  other,  so  offense  and 
defense  tend  to  merge  in  this  sce- 
nario. Most  of  the  action  takes  place 
within  a  small  area  of  the 
battlefield. 

Games  3  and  4  spread  the  ac- 
tion over  a  wider  area.  In  the  third 
game,  your  object  is  to  occupy  eight 


of  the  twelve  cities  on  the  game 
board.  Six  cities  occupy  the  periph- 
ery, and  six  are  in  the  center  of  the 
playfield.  Game  4  requires  actual 
control  of  six  cities;  you  must  have 
an  army  in  the  city,  one  that's  not 
involved  in  a  battle,  before  you're 
credited  with  control  (this  version 
will  probably  take  the  most  amount 
of  time  to  play). 

Although  the  first  four  scenarios 
encourage  a  commitment  to  battle, 
you  employ  different  tactics  in  the 
fifth.  The  goal  here  is  to  acquire  40 
of  the  61  hexes,  so  you  need  some 
free  armies  to  move  around.  As 
soon  as  you  claim  40  hexes,  you 
win  the  game. 

Typing  It  In 

Hex  War  is  written  in  BASIC,  with 
some  important  information  in 
DATA  statements.  Type  in  the  ver- 
sion for  your  computer  and  be  sure 
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to  save  a  copy.  Refer  to  the  notes 
below  for  special  instructions 
specific  to  your  connputer.  After  the 
game  has  been  saved,  type  RUN  to 
begin  playing. 

When  you  first  run  Hex  War, 
the  computer  pauses  to  set  up  the 
screen,  then  displays  a  menu  of  five 
choices.  The  five  different  games 
are  explained  in  detail  below.  If 
you're  new  to  the  game,  press  the  1 
key  to  choose  game  1.  There  will  be 
another  short  pause  while  the  vari- 
ables are  initialized,  and  then  you'll 
see  a  playfield  with  61  hex  shapes, 
containing  four  armies  on  each  side 
(see  photos). 

Hexes  And  Hexadecimal 

A  chess  board  has  64  squares  ar- 
ranged in  a  rectilinear  grid.  Hex 
War  gives  you  a  playing  field  of  61 
hexagons  (almost  as  many  as  a 
chess  board),  but  they're  part  of  a 
six-sided  honeycomb  field.  If 
you've  played  war  games  before, 
you  may  recognize  the  hexes. 

If  you're  using  a  Commodore 
128,  64,  or  Atari  computer,  plug  in 
the  joystick  before  playing  (use  port 
2  for  the  128  and  64).  The  other 
versions  use  keyboard  controls  as 
explained  below.  At  first,  the  cursor 
movement  may  seem  unusual.  The 
cursor  travels  not  up-down/left- 
right,  but  northeast-southeast/ 
northwest-southwest.  To  make  the 
movement  less  confusing,  turn 
your  joystick  45  degrees  clockwise, 
so  that  what  was  up  becomes 
northeast,  and  so  on. 

Each  hex  has  six  neighbors,  so 
an  army  can  move  in  six  possible 
directions.  To  travel  left  and  right, 
you'll  have  to  push  the  joystick 
twice  (for  example,  up  and  right  on 
the  joystick  to  move  one  hex  to  the 
right,  which  counts  as  one 
movement). 

Army  strengths  are  listed  in 
hexadecimal  (base  16)  numbers,  so 
the  four  armies  labeled  40  actually 
have  strengths  of  64  (the  hexadeci- 
mal value  40  equals  64  in  our  ev- 
eryday decimal  numbering 
system).  At  the  beginning  of  a  turn, 
any  army  has  exactly  three  move- 
ment points.  It  requires  one  point  to 
move  an  army  into  a  neutral  or 
enemy-controlled  zone.  To  move 
through  the  same  zone  also  requires 
a  point.  To  move  into  and  through  a 
friendly  hex  requires  a  total  of  one 


point.  This  means  you  can  move  a 
single  army  through  two  neutral  or 
enemy  hexes  in  any  one  turn,  but 
the  same  army  can  move  through 
up  to  three  friendly  zones  during  a 
turn. 

Select  an  army  by  moving  the 
cursor  onto  it.  Click  the  joystick 
button  once,  then  position  the  cur- 
sor on  a  neighboring  hex  and  click 
again.  If  you  wish  to  stop,  click 
again,  and  two  plus  signs  (++) 
will  appear,  signaling  that  no  more 
movement  can  occur.  Otherwise, 
position  the  cursor  on  another 
neighboring  hex  and  click. 

Zones  Of  Control 

Each  army  controls  the  six  contigu- 
ous hexes  surrounding  its  resident 
hex.  If  you  enter  an  enemy's  zone 
of  control,  you  forfeit  any  addition- 
al moves  and  must  prepare  for  bat- 
tle. In  addition,  an  army  that  begins 
the  turn  in  a  zone  of  control  cannot 
move  until  the  battle  is  resolved. 

Robots  Vs.  Robots 

In  this  game,  you  aren't  really  on 
the  planet,  but  parked  high  above  it 
in  a  remote  mothership.  You've 
landed  some  robots  to  explore  the 
area,  and  they've  encountered  ro- 
bots belonging  to  another  explorer. 
Your  robots,  or  bots  as  you  call 
them,  follow  your  orders  to  ad- 
vance toward  the  other  bots.  Each 
bot  has  a  mining  laser  which  can 
stop  or  disable  the  other  bots.  Also, 
your  bots  have  disruptor  beams 
which  can  daze  another  bot,  tem- 
porarily confusing  it.  When  two 
bot-groups  come  close  to  each  oth- 
er, they  shoot  lasers  and  disruptors 
until  one  army  of  bots  is  disabled. 

Three  things  can  happen  to  a 
robot  which  suffers  a  hit.  If  the 
robot  suffers  a  direct  hit  in  its  logic 
unit  by  a  laser,  it  is  vaporized.  It  is 
destroyed  forever  and  never  reap- 
pears in  play. 

The  second  thing  that  can  hap- 
pen is  injury.  If  the  laser  beam  is 
deflected,  the  robot  is  out  of  com- 
mission until  it  can  be  transported 
back  to  a  botspital.  An  injured  bot  is 
frozen  in  place  until  the  battle  is 
finished,  after  which  the  victorious 
army  carts  away  the  injured  bots  to 
be  repaired  and  reused. 

Thus,  winning  a  battle  means 
you  evacuate  both  the  friendly  in- 
jured and  the  enemy  injured.  After 


all  of  the  injured  bots  recover,  they 
join  the  force  in  whose  botspital  they 
were  healed.  In  effect,  injured  bots 
eventually  become  members  of  the 
army  which  won  the  battle  in 
which  they  were  damaged. 

The  third  possibility  is  confu- 
sion: The  robot  is  temporarily  dis- 
oriented for  two  turns.  When  the 
time  has  passed,  the  robot  is  ready 
again. 

Reprogromming  Bots 

Moving  the  cursor  onto  an  army  of 
robots  brings  up  a  status  window  in 
the  upper-left  corner  of  the  screen. 
The  number  in  reverse  video  is  un- 
important; it's  the  army  number 
(which  may  change  as  the  game 
progresses). 

The  four  numbers  underneath 
are  significant,  however.  The  first  is 
the  army's'  active  strength  (in  deci- 
mal). The  second  is  the  number  of 
injured  robots,  which  will  be  trans- 
ported to  the  botspital  of  whichever 
side  wins  the  battle.  The  third — on 
the  line  below — is  the  number  of 
disrupted  robots  who  will  be  avail- 
able for  combat  in  the  next  turn. 
The  fourth  number  is  how  many 
robots  can  join  the  active  force  two 
turns  from  now. 

If  one  side  is  able  to  reduce  the 
other  player's  active  force  to  zero, 
two  things  happen.  The  winner 
sends  all  injured  bots  away  to  be 
repaired.  The  winning  side  also  col- 
lects all  enemy  bots  (injured  or 
dazed)  and  sends  them  to  the  rein- 
forcement center  to  be  repro- 
grammed.  Eventually  all  these  bots 
will  available  to  the  winner  of  this 
particular  battle  for  future  engage- 
ments. 

Reinforcements 
And  Mergers 

At  the  start  of  the  game,  you'll  see 
some  armies  positioned  outside  of 
the  hex  field.  These  are  reinforce- 
ments and  reserves  in  transit  to  the 
battle.  Player  one's  reinforcements 
enter  at  the  bottom  right  corner; 
player  two's  enter  at  the  top  left. 
The  line  of  new  armies  moves 
counterclockwise;  the  army  next  to 
the  entry  point  is  the  next  to  enter 
the  battlefield. 

However,  the  reinforcements 
cannot  enter  the  battlefield  if  an 
army  (friendly  or  enemy)  is  block- 
ing their  way.  Keep  your  armies  off 
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S£ijCo  CoTO(Dute/t  jUa/ifceting  &  Cowsuftants 

IfK  ATARI  J^  "applG 


ATARI 

130XE            -  -  CALL 

e5)(E CALL 

800XL CALL 

520ST CALL 

lOSOOriue 145 

l027Prinlei -  145 

BSOInleriace 109 

SF3M  Drive 229 

Sf354  Dfiue  179 

1040  St  (New) Call 

XM301  Modem 31 

BRODERBUND  (Atari) 

The  Pnnl  Shop  23.95 

Graphics  Library  IB. 95 

Graphics  Libfary  II  19.60 

Graphics  Library  III  19.50 

Bank  St.  Writer  42.75 

Whisller's  Brother  18  95 

Spelunker  18  95 

Sieallh         .  18,95 

Serpent's  Star  .  24  95 

Mask  ollhe  Sun  24  95 


MICROLEAGUE  (Atari) 

Baseball 24.95 

GM  disk 24.95 

Team  disk 14  95 

SSI  (Atari) 

Nam 24.75 

Mechraged 34.95 

Aniietam 29.95 

USAf 34.95 

ACTIVISION  (520  St) 

Borrowed  Time 29  75 

Music  Studio 29.75 

Hackler 26.75 

Mindshadow 29.75 

VIP  TECH 

VIP  Professional  520ST       1 1 5 
VIP  LITE  520S1  B5 

VIP  Professional  Amiga       129 

MARK  of  UNICORM  (520ST) 

HEX  .  ,  29  9b 

fUllfCE 12995 

PC/lnlerComm 99.95 

HABA  (520  St) 

Writer 4995 

QUICKVIEW(520St) 

Zoomracks 49.95 


ACTIVISION  (Atari) 

Hackler 15.75 

Mindshadow ,.15.75 

Ghoslbuslers  15.75 

Great  Am  Race 15.75 

Music  Studio 20.75 

Space  Siiultle 15.75 

MICROPROSE  (Atari) 

Kennedy  Approach ... 21 .75 

Crusade  in  Europe 24.75 

Decision  in  Desert 24.75 

Solo  Flight 20-75 

Nato  Commander...  ,20. 75 

Spitfire  Ace 18.75 

F-1S  Strike  Eagle 20.75 

Silent  Service 20.75 

Conflict  in  Nam 24.75 

SYNAPSE  (Atari) 

Synfile 29.95 

Syncalc 29.95 

Template 14.95 

MiniJwheel 24.75 

Brimstone 24.75 

WICO  Joysticks 

15-9714  Bat  Handle 16.75 

50-2030   Boss 11,99 

50-2002  Super  3-Wav...-19-99 

REDIFORM  PAPER 

Oly  1000  9'.;xll  while  lazer.  1995 
Oty3000  9ViXll  while  Iwei...  29.55 
Oty  1000   9'.zxll  while  lazer     1655 

Otv   200   9',-2Xil  v/hile  lazer 595 

Oty  1000  Mailing  labels  U3 6  95 

SUB  LOGIC  (Atari) 

Flight  Simulator  II.... 32.75 

Night  Mission  Pinball 20.75 


ACTIVISION  (Apple) 

AllerEgo 28.75 

Little  People 24.75 

Mindshadow 24,75 

Hackler 24.75 

Gamemaker 24.75 

BRODERBUND  (Apple) 

The  Print  Shop 31,50 

Graphic  LIbrarys  EA,...ia,50 
BankSt.  Writer  128K., 42.75 

Bank  SI,  Speller 42.75 

Carmen  Sandiego 22.75 

Karaleka 22-75 

Captain  Goodnight 22.75 

Myppel  Cruise 25,75 

P,S,  Companion 24,75 

Science  Kit 35,95 


MICROPROSE  (Apple) 

Crusade  in  Europe, .24. 75 
Decision  in  Desert. ,.,24. 75 

F-iS  Strike  Eagle 20,75 

NATO  Commander  -20,75 

Silent  Service 20,75 

Solo  Flight - 20,75 

SSI  (Apple) 

Phanlasie  II 24.75 

Wizard's  Crown 24.75 

Rings  of  Zilfin 24,75 

Colonial  Conquest. ,.,24.75 

Battlegroup 35.75 

t^AM 29-75 

MICROLEAGUE  (Apple) 

M  L  Baseball 24,95 

General  Mgr 24,95 


DIGITAL  DEVICES 

Pocket  Modem  AT Call 

CompuServe 18.95 


KYOCERA 

1200S  309 


COMMODORE 

128 CALL 

C  1571  Drive CALL 

C  1902-A CALL 

C.64 CALL 

C  1541  Drive CALL 

C  1670  Modem CALL 

C-64  Computer CALL 

MPS801  Printer LOW 

C  1350  Mouse 42 

C  1700  128K  RAM  145 

C  1750  512K  RAM 269 

JANE  35 

ACTIVISION  (C-64/1 28) 

Alter  Ego 28,75 

Hackler -18.75 

Little  People 20,75 

Gamemaker 2475 

Borrowed  Time 18-75 

Space  Shuttle 18,75 

Music  Studio 24.75 

Mindshactow 18  75 

Headrace 18,75 

FasI  Tracks 22  75 

Count  Down 18,75 

Ghostbusters 22,75 

SUB  LOGIC  (C-64) 
Flight  Simulator  It. ...32.75 

Night  Mission  Pinball 20,75 

INNOVATIVE  CONCEPTS 

Flip-n-File  10 3,50 

Flip-n-File  15 8,25 

Flip-n-File  25  Lock 17,95 

Flip-n-File  50 17,25 

Flip-n-File  50  Lock 22,95 

Flip-n-File  Rom 17,25 

PERSONAL  PERIPHERALS 

Super  Sketch  C-64, ,,--,29,95 

Printer  Utility  C-64 14.99 


SUPRA 

1064  Modem  (C-64) ,      49  95 


SUPRA 

Supra  300  (Alan) 

Supra  1200  (Alan) 


,49  95 
199  95 


US  ROBOTICS 

Password  1200 229 

Password  300 139 

Courier  2400 .469 


COMMODORE 

1670  Modem 155 


CARDCO 

Numeric  Keypad 34,95 

CB/5  5-slot  Board  (641. ,49.95 
CB/2  2-5lot  Board  (641  ,21,95 

S'More  Basic  Rom 49.95 

Write  Naw-64 32,95 

MailNow-64 24,95 

Spell  Now-64 24,95 

FileNow-64 24,95 

Paint  Now-64 24.95 

CalcNow-64 24.95 

Super  Printer  Ulilily 24,95 

MICROPROSE  (C-64) 

Kennedy  Approach .  .  21 .75 
Crusade  in  Europe. ..,24,75 
Decision  in  Desert,,   ,24,75 

Solo  Flight 20.75 

Nato  Commander 20,75 

Spitfire  Ace 18,75 

F-15  Strike  Eagle-  .-  20,75 

Aerojet 21,75 

Silenl  Sen/ice 21,75 

Conflict  in  Nam 24,75 

Gunship 21,75 

BRODERBUND 

The  Print  Shop 28,75 

Graphics  Library 

Til,  III 18.75 

Karateka 19.75 

Bank  St.  Writer 32.75 

Lode  Runner 21.75 

Printshop  Companion  .24.75 

Bank  St.  Speller 32.75 

Bank  SI.  Filer 32.75 

Bank  SI.  Mailer 32.75 

Music  Shop 27.75 

MICROLEAGUE  (C-64) 

Baseball 24.95 

GMdisk 24.95 

Team  disk 14.95 

ACTIVISION  (Amiga) 

Hackler 26.75 

Mind  Shadow 26.75 

Music  Studio 29-75 

Borrowed  Time 26.75 

SYNAPSE 

Syncalc 29,95 

Template 14,95 

Loderunner  Rescue ..  19.95 

Essex 24.95 

Brimstone 24.95 

Mindwheel 24.95 

EPYX-64 

Fastload 24.75 

Summer  Games 26.75 


MONITORi 


ZENITH 

ZVM  \Z2A  Amcei 

/f. 

ZVM  I23G  Green 

75 

ZVM  124  Amber  IBM 

129 

ZVM  13t  Color 

-275 

ZVM  133   RGB. 

389 

ZVM  135  Composite 

449 

ZVM  136  Hi  Res  Cdsr 

£89 

ZVM  1220     - 

95 

ZVM  T230    . 

95 

ZVM  1240 

149 

PRINCETON  GRAPHICS 

MAX- 12  Amber    tS5 

-1X12  RGB      465 

3Fi-12  RGB  595 

TEKNIKA 

MJ-10  Composite 179 

MJ-22 255 


PANASONIC 

DTHI03lO"RGBHiRes  395 
TXl2H3Pt2- Color  419 

TR120MBPA12"  Amber,  ,  109 
TRl22M9P12"GreenlBM.,  148 
TRl22MYP12'ArtiberlBU    H8 

SAKATA 

SG  IC-CO  12"  Green  99 

SA  lOOO  12"  Amber  109 

SG  1500  12-  Green  TTL  119 

SA  1500  12'  Amber  TTL  129 

SC  too  13'  Color  Comp  209 

SC  200  13'   RGB  369 

STS1   Tilt  Stand  29 


COMMODORE 

1902  Color CALL 

1802  Color CALL 


THOMSON 


CM35512V1 , 
CM36632 


269 
159 


AMDEK 

300  Green 

Its 

300  Amber 

128 

310  Amber  IBM 

1,'ifi 

Color  300  Audio 

234 

Color  SOO  Composite 

369 

Color  6O0 

:tH/ 

Color  700 

495 

Color   7t0 

569 

NEW  HOURS! 

Mon-Thur-9  AM-SPM 

Fri  -  9  AM-6  PM 

,Sal-  10  AM-e  PM 


LYCO  COMPUTER 

America's  Mail  Order  Headquarters 


NEW  HOURS! 

Mon-Thur-9AM-8  PM 

Fri  -  9  AM-6  PM 

Sat  - 1 0  AM-e  PM 


1091 
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SAVE  ?:is  PRINTERS 


COLOR  RIBBONS  NOW  AVAILABLE!! 


$228 


PANASONIC 

1091  228 
3131  (rsEW)  264 

1092  325 
3151  409 
1080  (NEW)  209 
1592   NEW  439 


OKIDATA 

Okimale  10.,,,.. 179 

182 214 

192 343 

193 563 

CITIZEN 

MSP-10 255 

MSP-15     ,  ..355 

MSP.20  .       .337 

MSP-25  495 

1200- 188 

Pfemier  35 429 


EPSON 

LXBO 
FX8S 
JX80 

HomewrHer  10 
DX10 

0X20 

DX35 .  . 

AP-80 

Hl-aO      

Hs-eo 

FX-266  (NEW)  . 

LQ-800JNEW) 

LQ-1000INEW) 


02b 
630  AP 
630  ECS 

Daa  IF 

P  3S  CQ1 

p  ;e 

C  150 


DIABLO 


209 

333 

Call 

193 

207 

.297 

.597 

.244 

3B5 

298 

489 

529 

659 


1599 
1759 
239S 

699 
1749 

999 


LEGEND 


1080.. 
1380. 
1385., 
808,.., 


.Call 
.258 
..289 
..148 


JUKI 

Juki  6100 344 

RS232  Serial  Board  ..   ..55 

eiOOTracior 119 

6100  Sheel  Feeder 209 

Juki  5300 757 


TOSHIBA 


P1340 
P35H. 
P341P 
P341S 
351  Sfwel  Feeder 


-  469 
1149 


99S 
529 


CORONA 

LP300 2495 

200361  Toner  Carlndge...89 


SILVER  REED 

EXP400 249 

EXP500 295 

EXP550    .  399 

EXP77D  749 


BROTHER 

HR-15XL-P 359 

HR-ISXL-S 359 


C.  ITCH 

Prowriter8510sp+  Call 

15505  sp+  Call 

Pnnlmasler  Gail 


STAR  MICRONICS 

SG-10  205 

SG-IOc 219 

SG-15 367 

SD-10 319 

SD-15 438 

SR-10 469 

SR.15 578 

SS-10,, 589 

Powertype 297 

NX-10(NEVy) CALL 

fJB-15(NEWi CALL 

SEfKOSHA 

SP-1000VC(C-641 185 

SP-1000  ACenlramcs 199 

SP-1000IIBM 199 

SP-10O0ASRS-232.      .199 
SPlOOOAP  Apple  lie         199 

BP-52001 649 

BPsheeileedef 199 

SP.IOOO  ribbon 8.50 

BP.5200  ribtmn 12.50 


DUST  COVERS 

Atari 

520ST 

1195 

130XE 

699 

600XL 

699 

1050 

699 

1CC5                           ..      . 

799 

Coirmodore 

C128                          

,799 

1571(1541             

.  6BS 

1902   .  . 

10,95 

1702 

899 

C64A/IC20 

699 

Panasonic 

109W1091 

899 

1092 

899 

1093 

999 

Star  Micronics 

SQSDIO 

899 

SG/SDIS 

999 

SRlO     

999 

SR15           

999 

Okldala 

82/92  899 

8S'93  9  99 

193  9  99 

DRIVES 

INDUS 

GTAIari  195 

GT  Commodore       ,,      195 

COMMODORE 

1571 CALL 

1541  ..  .    CALL 

COMTEL 

Enhancer  2000  iC-e^),      159 

TANDON 

■3S0K  '0  ■,:     Drive  115 


INTERFACING 
DIGITAL  DEVICES 

Ape  Face  XLP(Aiari),  ,,49 

U-Prml  A  (Aiaril 54 

U-Prini  A  16K  Buller  .   ,74 
U-Print  AP  15K  (Apple),  99 

CARDCO 

G-WlZ(C-64) 54 

C/?PSiC-64  49 

C/?B(C-64) 39 

XETEC 

Super  GraphtK  64  64 

Super  Graphu  JR  64  45 

MICROBITS 

|MPP-1150  lAianl  ,  54 

iMPP-llSOXL  (Atarii  ,59 

iMicroPrint  (Ataril  39 


TYMAC 

I  Conned  ion  {C-64) 
I  Tackier  (Applej 
lPPC-100  (Apple) 


MICROTEK 

[Dumpling  GX  (Apple)  , 
iDumphnn  i6K  (Apple!  , 
|RV.611C  (Apple' 


49 
39 


59 
,89 
,49 


ORANGE  MICRO 


IGRAPPLER+    (Apple) 

appler  16K  {Apple) 
IQRANGE   (Applej 


iGrap 


pier  16K  {Apple) 
._       NGE   (Apple) 
iGraopler  CD  it-Ddl 


,85 

149 

,59 

79 


DISKETTES 

DENNISON 

ELEPHANT  5' 4      SSSD  1199 

ELEPHANT  5' J     SSDD  12  99 

ELEPHANT  5' J     DSDD  14  j9 

PREMIUM  5^4     SSDD  13  99 

PREMIUM  5-i     DSDO  15  99 


SUNKYONG 

SKC  5' 4"  SSDD 
SKC  5'i'    DSDD 


S-d     MDl 


MAXELL 


11,99 
13,99 


1399 


VEflBATIM 

5"i"  SSDD 1399 

5'i      DSDD 19.99 

BONUS 

|5V4"  SSDD 8,99 

I  SVi"    DSDD   12.99 

3.5"  DISKETTES  ' 

DENNISON 

SSDD 5  pak 14,95 

SSDD 10  pak 26-95 

MAXELL 

SSDD 10   pak 29,95 

DSDD 10  pak,   ,  ,36.95 

3M 

SSDD 10   pak 26.95 

DSDD ID  pak 32-95 


IBM- PC 

MICROPROSE  (IBM) 

F  15  Strike  Eagle       20,75 

Solo  Flight 20,75 

Silent  Service 20,75 

Decision  in  Desert  ., 2495 
Crusade  Europe 2495 


SSI  (IBM) 

Batllefor  Normandy, .,.24.95 

Knights  of  Desert 24.95 

Tigers  In  Snow 24.95 

Computer  Baseball 24.95 

Cartels  S  Culthroats..  24.95 

OP  Market  Garden 29.95 

50  Mission  Crush 24.95 

SUBLOGIC  (IBM) 

Jet  Simulator ...34.95 

Scenery  Disks  EA, ..-14.95 
Set  1-6 69,95 

ACTIVISION  (IBM) 

Borrowed  Time 24.75 

Mindshadows---- 24.75 

Music  Sludio 29.95 

Alter  Ego 29.95 

SYNAPSE  (IBM) 

Synstoci* 6495 

Essex 2895 

Wizard  o1  Wall  St  28.95 

Brimstone     28  95 

MICROLEAGUE  (IBM) 

M  L  Baseball 24,95 

General  Mgr 24.95 

85  Team  Disk 14.95 

LEADING  EDGE 

Nutshell 69.95 

Nulshell  Filer 149.00 


BRQDERBUND(IBM) 

Bank  St  Writer .48,95 

Tlie  Print  Shop 34.95 

Graphics  Library  1 22.96 

Ancient  An  of  War 27.95 

Champ  Lode  Runner. ..22.95 
Karateka 22  95 


TOLL  FREE  1-800-233-8760 


TO  ORDER 

CALL  TOLL  FREE  1  -800-233-8760 

In  PA  717-494-1030 
Customer  ServJce71 7-494-1 670 


or  send  order  to 
Lyco  Computer 
P.O.  Box  5088 

Jersey  Shore,  PA 
17740 


RISK  FREE  POLICY 

In-sEoch  iTens  shipped  wiihm  2a  riDurs  of  order,  No  depcsi!  on  C.O.D  orders.  Fieo 
shipping  or.  prepatd  cash  orders  wiihfn  ine  coniinenlai  US,  Volume  discokjnis 
available  PA  resiflents  add  sales  lax.  APO  FPO  ana  iniemaiional  orders  add 
S5  00  plus  3^1}  (or  priority  mail  service  Adverii&ed  prices  show  i'^-tj  discoLinl  for 
cash  add  d^u  for  MasterOacd  or  Visa  Personaf  checks  require  ^  weeks"  clearar>C9 
DBlore  shipDing  Ask  about  UPS  Blue  and  Red  label  stiipping  AH  merchandise 
carrred  under  manjtacturer's  warranty.  Free  catalog  wiih  order,  All  iiems  subieci 
lo  change  wiihoui  notice' 


your  own  reinforcement  point,  and 
try  to  block  your  opponent's  armies 
from  this  area  if  you  can.  If  the 
entry  hex  is  owned  but  not  occu- 
pied by  your  opponent,  you'll  lose 
some  reinforcements. 

After  completing  a  turn,  you 
are  credited  with  additional  rein- 
forcements according  to  how  much 
territory  you  own.  Passing  over  a 
hex  allows  you  to  claim  it;  the  hex 
changes  color  to  indicate  owner- 
ship. Each  piece  of  property  pro- 
vides enough  ore  and  energy  to 
build  a  new  robot,  available  for  use 
two  turns  in  the  future.  The  num- 
bers in  the  line  of  reinforcements, 
are  updated  after  you  move  to  show 
additional  robots  being  built. 

Winning  a  battle  also  provides 
additional  armies  in  the  line  of  rein- 
forcements. As  mentioned  above,  a 
victorious  army  captures  any  dazed 
enemy  bots,  which  are  repro- 
grammed  and  available  in  three 
turns.  At  the  same  time,  the  winner 
evacuates  injured  bots  of  both 
sides.  Transportation  and  repair 
take  five  turns  for  friendly  bots, 
seven  for  enemy  bots.  The  two  ad- 
ditional turns  are  needed  for  repro- 
gramming  the  opponent's  forces. 

If  you're  losing  a  battle,  the 
number  of  injured  robots  (dis- 
played in  the  status  window)  will 
begin  to  rise.  Remember  that,  if 
your  opponent  reduces  your  active 
strength  to  zero,  he  or  she  will  cap- 
ture all  of  your  injured  bots;  they'll 
be  reprogrammed  and  added  to  fu- 
ture reinforcements.  To  prevent 
this  from  happening,  you're  al- 
lowed to  bring  in  a  second  army  for 
merging.  Simply  move  another 
army  on  top  of  the  army  with  which 
you  want  to  merge.  There's  just  one 
rule:  One  or  both  of  the  armies 
must  have  a  strength  less  than  32 
decimal  (IF  or  less  in  hex). 

Customizing  The  Scenarios 

The  five  built-in  scenarios  provide 
plenty  of  variety,  but  if  you'd  like  to 
add  more  challenges,  here  are  some 
suggestions.  (The  following  line 
number  references  are  for  the  128 
version  of  Hex  War,  Program  1; 
other  versions  may  differ  slightly, 
although  the  variable  names  are  the 
same  in  most  versions.) 

First,  a  note  about  the  logical 
organization  of  the  grid.  The  vari- 
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ables  T  and  B,  CT  and  CB,  and  HT 
and  HB  are  used  to  locate  the  coor- 
dinates on  the  playing  field  (see 
figure).  The  first  number  is  T  (or  HT 
or  CT),  the  second  is  B  (or  HB  or 
CB).  These  coordinates  are  also 
used  in  the  three-dimensional  MAP 
array  (where  level  0  of  the  array  is 
the  army  number,  1  is  the  current 
owner  and  2  keeps  track  of  whether 
or  not  a  city  is  located  there); 
they're  also  part  of  the  ARMY  ar- 
ray. By  varying  the  starting  posi- 
tion, number  of  armies,  reinforce- 
ment strengths,  and  location  of 
cities,  you  could  simulate  historic 
battles. 

To  add  or  subtract  cities  from 
the  field,  change  the  value  of  CN  in 
line  50.  You'll  also  have  to  change 
the  DATA  statements  in  lines  270 
and  280.  The  numbers  there  are  the 
T  and  B  coordinates  of  the  cities. 

The  strengths  and  locations  of 
the  armies  can  be  changed  as  well. 
The  DATA  statements  starting  at 
line  1540  determine  the  strength 
(64)  and  T/B  coordinates  for  the 
armies  at  the  beginning  of  the 
game.  If  you  wish  to  start  with  more 
armies  (or  fewer),  you'll  have  to 
change  the  inner  FOR-NEXT  loop 


(with  the  index  of  K)  in  line  1500.  In 
that  same  line,  change  NX(J)  to  one 
number  higher  than  the  number  of 
armies  on  each  side.  For  example,  if 
you  want  six  armies  apiece,  change 
NX(J)  to  7.  The  subroutine  at  line 
1600  sets  up  the  reinforcements;  if 
you  don't  like  the  random  patterns, 
change  the  formula  here. 

Variables  defined  in  lines 
70-90  control  the  play  of  the  game. 
PN  determines  which  player  goes 
second;  it  can  be  either  zero  or  one. 
Variable  ME  controls  the  maximum 
merge  strength.  If  you'd  like  to  be 
able  to  merge  any  two  armies, 
change  it  to  a  high  value  (512,  for 
example).  To  remove  the  merge  op- 
tion altogether,  change  ME  to  zero. 

The  movement  points  are  de- 
fined by  MM  in  line  80.  Movement 
across  friendly  territory  takes  one 
point,  across  neutral  or  hostile  terri- 
tory two  points.  Increasing  MM  will 
give  your  armies  more  mobility. 
The  three  variables  KA,  KB,  and  KC 
affect  the  outcome  of  individual 
battles.  KA  determines  how  many 
bots  are  vaporized,  KB  controls  the 
number  injured,  and  KC  affects 
how  many  are  dazed.  If  you  make 
the    fractions   smaller   (1/24,    for 
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example),  the  battles  end  more 
quickly.  The  subroutine  starting  at 
line  2600  resolves  current  battles. 

Commodore  64  Version 

The  64  version  of  Hex  War  (Pro- 
gram 2)  looks  and  plays  exactly  like 
the  original  128  version.  However, 
one  additional  step  is  needed 
before  you  run  the  game.  After  you 
have  typed  in  the  game  and  saved  it 
on  disk  or  tape,  type  this  line  in 
direct  mode  (without  line  numbers): 
POKE  44,64:POKE  64'256,0:NEW 
Be  sure  to  press  RETURN  after  you 
type  the  line.  Now  load  and  run  the 
program  as  usual.  It  is  very  impor- 
tant that  you  perform  this  step 
before  running  the  program;  If  you 
don't,  the  screen  will  be  jumbled 
and  impossible  to  decipher. 

You  may  find  it  easier  to  let  the 
64  handle  this  chore  for  you.  Pro- 
gram 3  is  a  short  loader  which  per- 
forms the  setup,  then  loads  and 
runs  Hex  War.  To  use  the  loader, 
you  must  have  Program  2  saved 
with  the  name  HEX  WAR  on  the 
same  disk  or  tape  as  Program  3  (for 
tape,  Program  2  must  follow  Pro- 


gram 3  on  the  tape  and  the  DV=8 
in  line  10  of  Program  3  must  be 
changed  to  DV=1). 

Atari  Version 

In  the  Atari  version  (Program  4), 
armies  are  maneuvered  using  a  joy- 
stick plugged  into  port  1.  Joystick 
controls  are  the  same  as  described 
above  for  the  128  version. 

This  version  generates  extra 
colors  in  graphics  mode  0  using  a 
technique  known  as  artifacdng. 
However,  the  resulting  colors  may 
vary  on  different  Ataris,  so  a  small 
change  may  be  required.  The  game 
should  start  with  the  red  army  at 
the  top  of  the  screen  and  the  blue 
army  at  the  bottom.  If  that  is  not  the 
case  on  your  machine,  change  the 
following  line: 

ND4077  RESTORE  4140!  FOR  A  =  C 
HSET+240  TO  CHSET+24 
7:REftD  B:POKE  A.BlPQ 
KE  A+8,B«2!NEXT  A:RE 
TURN 

If  the  colors  are  not  corrected,  the 
machine  may  appear  to  declare  the 
wrong  side  the  winner  at  the  end  of 
the  game. 


Apple  Version 

Program  5  is  for  all  Apple  Il-series 
computers  using  either  DOS  3.3  or 
ProDOS.  To  get  the  full  benefit  of 
the  detailed  high-resolution  graph 
ics,  a  color  monitor  or  color  TV  is 
recommended.  (The  program  incor- 
porates the  HROUT  high-resolution 
graphics  routine  from  the  "Apple 
Supeirfont"  article  in  the  April  1985 
issue  to  generate  these  graphics.) 

Use  keyboard  controls  to  ma- 
neuver armies  in  this  version.  Press 
the  period  (,)  key  to  go  northeast 
(use  the  >  symbol  on  that  key  as  a 
reminder),  the  comma  (,)  key  to  go 
northwest  (note  the  <  symbol  on 
that  key),  the  -•  to  move  southeast, 
and  the  ^  key  to  move  southwest. 
Use  the  space  bar  to  select  or  set  an 
army.  Press  RETURN  to  end  your 
turn  before  all  your  armies  have 
been  moved.  A  player  indicator  ap- 
pears in  the  lower-right  corner  to 
indicate  which  player  has  the  cur- 
rent turn, 

iBI^  PC/PCjr  Version 

Like  the  Apple  version,  the  IBM 
PC/PCjr  version  of  Hex  War  (Pro- 
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gram  6)  uses  keyboard  controls  in- 
stead of  a  joystick.  Press  cursor-up 
to  go  northeast,  cursor-right  to  go 
southeast,  cursor-down  to  go 
southwest,  and  cursor-left  to  go 
northwest.  If  you  can  turn  the  key- 
board 45  degrees  in  a  clockwise 
direction,  these  directions  will  seem 
more  natural. 

Use  the  space  bar  to  select  or 
set  an  army.  Press  ESC  to  end  your 
turn  before  all  your  armies  have 
been  moved.  A  player  indicator  ap- 
pears in  the  lower-right  corner  to 
indicate  which  player  has  the  cur- 
rent turn. 

Amiga  Version 

The  Amiga  version  of  Hex  War 

(Program  7)  requires  512K  of  mem- 
ory and  is  written  in  Amiga  BASIC 
(not  the  ABasiC  which  was  shipped 
with  early  Amigas).  Before  you  start 
typing  the  program,  notice  the 
small  left  arrows  at  the  end  of  each 
program  line  in  the  listing.  These 
indicate  the  end  of  each  program 
line,  and  are  not  intended  to  be 
typed  (in  fact,  we  deliberately  chose 
a  character  that's  not  available  on 
the  Amiga  keyboard).  Instead, 
press  RETURN  wherever  you  see  a 
left  arrow  in  the  listing. 

This  game  uses  exacdy  the 
same  keyboard  controls  as  the  IBM 
PC/PCjr  game  (see  above).  Move 
the  cursor  on  the  playfield  with  the 
cursor  keys,  and  press  the  space  bar 
to  pick  up  or  set  an  army.  Your  turn 
ends  when  all  your  armies  have 
moved  or  when  you  press  ESC. 

Amiga  Hex  War  includes  syn- 
thesized speech  to  emphasize  vari- 
ous events  and  provide  information 
during  the  game.  For  instance, 
when  you  select  an  army,  the  com- 


puter tells  you  the  number  (in  deci- 
mal) of  robots  in  that  army.  If 
you're  not  familiar  with  hexadeci- 
mal numbers,  this  feature  can  help 
you  learn  hex  notation. 

Either  player  can  turn  the 
speech  off  or  on  at  any  time.  Simply 
click  the  mouse  button  twice:  A 
small  window  appears  and  the 
computer  announces  the  current 
voice  status.  If  speech  was  previ- 
ously activated,  it  now  shuts  off, 
and  vice  versa.  Click  the  mouse 
button  once  to  erase  the  window 
and  resume  play.  A  similar  window 
appears  to  announce  the  outcome 
at  the  end  of  each  game. 

For  instructions  on  entering  these  listings, 
please  refer  to  "COWPUTEI's  Guide  to  Typing 
In  Programs"  in  this  Issue  of  computei. 

Program  1.  Hex  War  For 
Commodore  128 

MM  10  IF  PEEK(46><>64  THEN  GRA 
PHIC1:GRAPHIC0!FAST:FORJ 
=0TO15:COLOR4, J+1:K=J*12 
8 !FORL=KTOK+1 27 : BANK14 : J 
1=PEEK( 53248+L) :BANK0:PO 
KE12288+L, J1:NEXTL, J 

FB  20  BANK15 :POKE217,4!POKE260 
4, 28: SLOW 

PD  30  DIHJ,K,HT,HB,CT,CB, Jl, J2 
,A,B,C,D,E 

PK  40  DIM  ARMY{31,6,1),BTL(64, 
1 , 3 ) , MAP ( 9 , 9 , 2 ) , FQ ( 20 , 1) 
,I:JX(1),C(2) 

BQ    50    CNi=12:DIM    CIT(CN,1) 

BC    60    A=RND(-Tl/97) :P0$=" {BLU} 

(off) 12  p3{down}[2  left] 

B6iE*l£":Pl?="(YEL) 
{ RVS  J£T*  3 { OFF ) ( DOWN ) 
{2  LEFT) (PUR) §2  Yl" 

EP  70  PN=1:ME=31 

CE  80  MM=3:  REM  MAX  MOVES 

JG  90  KA=l/4a:KB=l/4a!KC=l/32 

BX  100  BANK15:POKE217,4:POKE26 
04,28 

SM  110  F0RJ=lT04iREADA 

FQ  120  F0RK=ATOA+7iREADB5POKEK 
,B:NEXTK,J 

RA  130  DATA  12936,240,240,63,1 


5,3,3,3,3 
AS  140  DATA  12984,15,15,252,24 

0,192,192,192,192 
PP  150  DATA  12840,3,3,3,3,15,6 

3,240,240 
BJ  160  DATA  12944,192,192,192, 

192,240,252,15,15 
RG  170  FORJ=0TO63!READK:POKE3  5 

84+J,K:NEXT 
CC  180  DATA0, 255, 0,15, 195, 240, 

63,0 
KM  190  DATA252,48,0,12,48,0,12 

,49 
AE  200  DATA0,12,48,0,12,48,0,1 

2 
GD  210  DATA48,0,12,48,0,12,48, 

0 
JA  220  DATA12, 48, 0,12,48,0,12, 

48 
EG  230  DATA0,12,48,0,12,48,0,1 

2 
KB  240  DATA48,0,12,48,0,12,63, 

0 
BK  250  DATA25  2,15,195,240,0,25 

5,0,0 
PQ  260  FORJ=1TOCN!FORK=0TO1:RE 
AD  CIT(J,K);NEXTK!MAP{C 

IT(J,0),CIT(J,1),2)=1:N 

EXTJ!  REM  T&B  OF  CITIES 
ER  270  DATA  8,4,0,4,8,0,0,8,4, 

0,4,8 
JQ  280  DATA  5,5,3,3,6,3,2,5,5, 

2,3,6 
XK  300  GOSUB600:GOSUB3200iGOSU 

B600;REM  GAME 
JS  310  CHAR1,6,11:PRINT"(BLU) 

(RVS) (2  SPACES JLBMi 

(2  SPACES }LiY3 

{2  SPACES }HH( 4  SPACES] 

EGnM|{2  SPACES  }NM 

{2  SPACES JOM{ 2  SPACES)" 
EP  320  CHARl,6,12tPRINT"(PUR) 

(RVS) (2  SPACES lEG^iMi 

[2  SPACESjLgPi 

[2  SPACES )NM( 4  SPACES )N 

M{2  SPACES")0iM3 

12  SPACES) IG^M 

(2  SPACES) (HOME) [red] 

( OFF ) " ; 
SM  330  PRINTSPC (10 ); "PLEASE  WA 

IT  A  MOMENT" 
FJ  340  GOSUB1500 
HE  400  DO 
GR  410  POKE208,0 
QX  420  GOSUB1900:GOSUB600:GOSU 

B1710!REM  FIND  BATTLES 
QG  430  COLOR4,7-2*PN:GOSUB800! 

REM  JOYSTICK 
CG  440  FAST:COLOR4,9:GOSUB2100 

;REM  BATTLES  AGAIN 
JJ  450  COLOR4,3:GOSUB2600!REM 

(SPACE) RESOLVE 
EB  460  COLOR4,1:GOSUB2100!REM 

{ SPACE ) POST-BATTLE 
AA  470  COLOR4,16:GOSUB2200iREM 

SPLIT  PRISONERS 
JP  480  GOSUB  2900 1  REM  REINFORC 

EMENTS 
HB  490  SLOW:COLOR4,e:GOSUB3400 
H7S  500  PN=1-PN 
DS  510  LOOP 
JA  600  COLOR4,2:COLOR0,2iCOLOR 

5 , 16 ! SCNCLRtPRINT: PRINT 

iSPRITEl,0 
CB  610  F0RJ=1T05: PRINTSPC (13-2 

* J ) ; I F0RK=lTOJ+3 ) PRINT " 

ER[2  SPACES)"; iNEXTKiPR 

INT'ER" 
CS  620  PRINTSPC(12-2*J) ; tFORK= 

lT0J+4iPRINT"W 
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12    SPACES }Q";»NEXTK»PRI 
NT  I NEXT J 
QX    630   F0RJ-lTO5iPRIHTSPC(J*2) 
f iFORK-lTO10-JiPRINT"R 
{2    SPACES)E"j iNEXTKtPRI 
NT 

SS    640    PRINTSPC(J*2+1) ; iFORK-1 
T09-J( PRINT "QW 

t2    SPACES)"; iNEXTKtPRIN 

T"QW" 
PX    650    NEXT  J 

CD    660    C$="UI{D0WN}{2    LEFTJJK" 

•  DS='^RVS  3ivi  ici  I  doWnT 

{2  LEPTjEFliDi" 
HJ  670  COLORS, 3 ;FORJ=1T012:GOS 

UB710:NEXT 
HQ  680  J=l : COLORS, 7: IFGN=1THEN 
C$=D$ :GOSUB710 !j=2 :COLO 
RS,5sGOSUB710 
RB  690  IFGK=2THENC5=D5:GOSUB71 
0  :  J=3  :  COLORS ,  5  .•  G0SUB7 10 
SH  700  PRINT" [ HOME j"; :RETURN 
KB  710  K=CIT(J,0) :L=CIT(J,1) jX 
=(K-L)*2+19!Y=(12-(K+L) 
)*2+3:CHARl,X,Y,C$:RETU 
RN 
FF  800  IFNX(PN)<2THENRETURN 
AX  805  HT=4!HB=4!GOSUB1000:SPR 

ITEl, 1,1,0 
KE  810  MV=0iCT=0:CB=0:PK=0:REM 

PICKED  UP  OR  NOT 

HS  820  K=0:FOHJ=1TONX(PN)-1:IF 

(ARMY(J,0,PN)>0)AND(ARM 

Y{J,6.PN)<1)THENK=1:J=N 

X(PN)-1 

KX  830  NEXTJ:IFK=0  THEN  RETURN 

SB  840  GETG?:IFG$=CHR?(13)THEN 

RETURN 
HD  850  J=JOY(2)sIPJ=0THEN840:E 
LSE  IF(JANDI28)THEN1100 
:ELSE  IFCJAND1)=0THEN84 
0 
KK  860  J=(J-1 )/2rIFJANDlTHENBl 
=HB+J-2 :Tl=HTiELSETl=HT 
+1-J:B1=HB 
HD  870  IF  {T1<0)OR(T1>8)THEN84 

0 
FP  880  IF  {B1<0)OR(B1>8)THEN84 

0 
KC  890  S1=T1+B1 :IF(Sl<4)OR(Sl> 

12)THEN840 
EM  900  HB=B1 !HT=T1 :GOSUB1000!W 
IND0W1,1,8,4,1 !QN»MAP(H 
T , HB , 0 )  : IFQN=0  THENP  RINT 
"(2  HOME}"; :GOTO840:ELS 
E  Q1=MAP(HT,HB,1)-1 
JF  910  COLORS, 7-2*Ql tPRINTUSIN 
G"{RVS}##";ONr :PRINT"** 
****[QFF}gSi"; 
RH  920  FORJ=0TO3iPRINTUSING"## 
##";ARMY(QN,J,Q1); rNEXT 
DO  930  PRINT" {2  HOME  1 " ; : G0T084 

0 
PA  1000  SX=!l72+16*  (HT-HB)  !SY=2 

64-16*(HT+HB) 
KC  1010  M0VSPR1,SX,SY 
SA  1020  IF  MAP(HT,HB,2)=1THENS 

PRITEl ,1,3,0: RETURN 
KP  1030  SPRITEl,l,l,0sRETURN 
CX  1100  IFJOY(2)<>0THEN1100 
FE  1110  IFPK=1THEN1200:REM  PIC 

KEDUP,  CHECK  IF  OK 
FD  1120  IF((MAP(HT,HB,1)<>PB+1 
)OR(MAP(HT,HB,0)=0) ) TH 
ENGOTO810SREH  NO  ONE  H 
OME 
XE  1130  AN=MAP(HT,HB,0)  .-IFARHY 
(AN,6,PN)<>0THEN810:RE 
M  ARMY  AN  IS  ENGAGED 
SD  1140  PK=1:CT=HT:CB=HB:CS=AR 
MY(AN,0,PN) iREH  TIB,  C 


URRENT  STRENGTH 

DP  1150  SOUND!, 5000,10 

MK  1160  GOTO840 

XP  1200  J=( (HT=CT)AND(HB=CB)) 

AQ  1210  IFJAND(MV=0)THENei0 

RE  1220  IFJANDCMV>0)THEN1420 

MH  1230  AS=ARMY(MAP(HT,HB,0) ,0 
,PN) :IF( (AS>ME)AND{CS> 
ME))0R((HAP(HT,HB,1)-1 
=1-PN)AND(AS>0) )  THEN8 
40 

FB  1240  DT=ABS(CT-HT) iDB=ABS(C 
B-HB) :TL=DB+DTtIP  NOT( 
(TL=l)OR( (CT+CB=HT+HB) 
AND ( DT= 1 ) ) ) THEN840 

FS  1250  MG=MAP(HT,HB,0) :  IF  MG 
=0 THEN 1300 

AE  1260  FORJ=0TO3sARMY(HG,J,PN 
)=ARMY{MG,J,PN)+ARMY(A 
N,J,PN):ARMY(AN,J,PB)= 
0  I NEXT J 

SM  1270  ARMY(HG,6,PN)-.1<MAP(CT 
,CB,0)=0 

ad  1280  cs=arky(mg,0,pn) ian=mg 
jmv-hm+1 

RH  1290  GOTO  1380 

FF  1300  Na=MAP(HT,HB,l)-l:MV-M 
V+liIF(N8<>PN)THENMV=M 
V+1 

DK  1310  MAP(CT,CB,0)'='0 

SA  1320  MAP(HT,HB,0)=AN:MAP(HT 
,HB,l)=PN+liARMY(AN,4, 
PN)=HTjARMY(AN,5,PN)=H 
BiIF  MV>=HHTHEN  ARMY(A 
N,6,PN)-1 

KR  13  30  K=0:FORJ=-lTOlSTEP2iJl 
=HT+J I J2=HB+J , J3=HB- J i 
IF(Jl<0)OR(Jl>e)THEN13 
40:ELSE  IF(MAP(J1,HB,0 
)>0)THENIF(MAP(J1,HB,1 
)=2-PN)THENK»ljJ=ltGOT 
01360 

BR  1340  IF(J2<0)OR(J2>8)THEN13 
50IELSE  IF(MAP(HT, J2,0 
) >  0 ) THEN IF ( MAP ( HT , J2 , 1 
)=2-PN)THENK=l:J=l!GOT 
01360 

KE  1350  IF(J3<0)ORCJ3>8)OR(J1< 
0 ) OR  C  Jl >  8 ) THENl 360 : ELS 
E  IF(MAP( J1,J3,0)>0)TH 
ENIF(MAP{J1,J3,1)=2-PN 
)THENK=l!j=l 

HK  1360  NEXT J:  REM  ZOC 

AS  1370  IFK=1THEN  ARMY(AK,6,PN 
)=1:MV=MM+1 

EG  1380  A=PN:J=CT:K=CB:C=0!D=»0 
•GOSUB1830 

QP  1390  J=HT:K=HB:C=CS:D=ARMY( 
AN,6,PN) :GOSUB1830 

XJ  1400  CT=HT:CB=HB 

MQ  1410  IFHV<MMTHENa40 

HA  1420  ARMY(AN,6,PN)=l!j=HT:K 
=HB:C=CS:D=l:GOSUBie30 

SG  1430  GOTO810 

FC  1500  RESTORE1540sFORJ=0TOl! 
NX(J)=5 :F0RK=1T04!READ 
A,B,C 

QM  1510  AHMY(K,0,J)=A:ARMY(K,4 
,J)=B:ARHY(K,S,J)=C:MA 
P(B,C,0)=KsHAP(B,C,l)= 
J+1 

aj  1520  NEXTK,J 

EK  15  30  REM  STRENGTH,  T-POS ,  B 
-POS 

JD  1540  DATA  64,2,8,64,3,7,64, 
5,6,64,6,6:REM  BLUE 

QP  1SS0  DATA  64,2,2,64,3,2,64, 
5, 1,64, 6,0: REM  VIOLET 

JK  1600  REM  SET  RANDOM  REINFOR 
CEMENTS 

AS  1610  FORJ=0TO1:FORK=0TO20 


QM  1620  A=INT(RND(l)*K*3)tF0RL 
=1T05 :A=A+INT( RND( 1 )*2 
1 -8 ) t NEXTL : I FA < 16 THESA 
=0:ELSEA=(A+K*8)AND254 

HA  1630  FQ(K,J)=A:KEXTK,J 

RG    1640    RETURN 

EH    1700    REM    ARMIES->MAP 

SC    1710    FORJ=0TO8;FORK=0TO8 

FX  1720  A=MAP(J,K,l)iIFATHENA= 
A-1:GOSUB1800 

HH    1730    NEXTK,J 

PH  1740  FORA=0TOl!E=13+A*12:F= 
A*22 :DX=2-4*A:D=0 

PF  1750  FORJ=0TO8:C=FQ(J,A) :G0 
SUB184a 

HF  1760  E=E+DX*2!lFJ>3THENF=F+ 
DX : E=E-DX 

XC  1770  NEXTJ,A 

CA  1780  RETURN 

QC  1800  B=MAP(J,K,0) 

PH  1810  C=ARMY{B,0,A) 

BK  1820  D=ARMY(B,6,A) 

FJ  18  30  E=(J-K+10)*2-liF={13-J 
-K)*2+li  REM  T&B  TO  X/ 

y 

SC    1840   CHAR1,E,F:IFATHENPRINT 

P1$!ELSEPRINTP0$ 
MH    1850     IFC=0THENRETURN 
PP    1860    COLORS, (7-2*A)lCHARl,E 

,F+A 
HR    1870    PRI NTCHR?( 18); RIGHT? (H 

EX$(C),2);CHR5(146) 
RD    1880    IFDTHENF=F+1-A:G-1024+ 

E+F*40:POKEG,43iPOKE6+ 

1,43 t REM   ++ 
XK    1890    RETURN 
GC    1900    SW=0:E=NX(PN)-1:IFE<1T 

HENRETURN 
XJ    1910    F0RJ=1T0E-1 iIFAHMY(J,0 

,PN)<1THENBEGIN 
SE    1920    T=AEMY(J,4,PN)!B=ARMY{ 

J,5,PN) :IFMAP{T,B,0)=J 

THENMAP(T,B,0)=0 
BP  1930  PORK=JTOE:FORL=0TO6!AR 

MY(K,L,PN)=ARMY(K+1,L, 

PN) :ARMY(K+1,L,PN)=0:N 

EXTL 

JQ  1940  T=AHMY(K,4,PN):B=ARMY-( 

K,S,PN) :MAP(T,B,0)=K 
PH  1950  NEXTK 
MA  1960  NX(PN)-MX(PN)-liJ=EiSW 

=1:BEND 
FJ  1970  NEXTJsIF  SW  THEN1900 
MG  2000  FORJ=lTOEiARMYCJ,0,PN) 

=ARMY(J,0,PN)+ARMY{J,2 

,PN) 
SD  2010  ARMY(J,2,PN)=.ARMYCJ,3. 

PN)iARMY(J,3,PN)=0 
QS  2020  ARHY(J,6,PN)=0 
PP  2030  NEXTJ!K=NXC1-PN) iFOR  J 

=lTOKlARMY(J,6,l-PN)-0 

I  NEXT 
XF  2040  GOSUB2400 
DS  2050  IFBP>0  THEN  PORJ-0TO1 i 

PORK- 1 TOBP t A=BTL ( K , J , 0 

) I ARMY {A, 6 , J )=ARMY (A, 6 

,J)+1jNEXTK,J 
CA    2060    RETURN 
KG    2100    GOSUB2400 
BX    2110    A=NX(0) jIFNXC1)>ATHENA 

=NX(1) 
EX    2120    POHJ=0TO1 iFORK=lTOAtAR 

MY(K,6,J)-0:NEXTK,J 
GP    2130    GOSUB2050 
SH    2140    RETURN 
PB    2200    FORJ-0TOltA-l-J.B=-NX(J 

)-l 
DD    2210    PORK-ITOB 
EM    2220    IF   ARMYCK,0,J)<1   THEN 

{SPACE} BEGIN 
JC    2230    FQ(2,A)=FQ(2,A)+ARMY(K 
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,2,J)+ARMY(K,3,J) :IF  F 
Q(2,A)>255  THEN  C=FQC2 
,A)-25S:FQ(3,A)=FQ(3,A 
)+C!FQ(2,A)=255 

JX  2240  FQ(6,A)=FQ(6,A)+ARMY(K 
,1<J) !IF  FQ(6,A)>255  T 
HEN  C=PQ(6,A)-255:FQ(7 
,A)=FQ(7,A)+C:FQ(6,A)= 
255 

JQ  2250  IF  (MAPCAE?MY(K,4,J)  ,AR 
MY(K,5,J),0)=K)AND(MAP 
(ARMYCK,4,J),ARMy(K,5, 
J),1)=J+1)  THEN  MAP(AR 
MYCK,4,J),ARHY(K,5,J), 
0)  =  0 

RB  2260  FORL=0TO6:ARMY(K,L,J}= 
0 ! NEXTL 

BB  2270  BEND 

FR  2280  IF  ARMY(K,6,J)<1  THEN 
(space) BEGIN: REM  EVACO 
ATE  INJURED 

AE  2290  FQ(4,J)=FQ(4,J)+ARMY(K 
,1,J)  •■    ARHY(K,1,J)  =  0 

DJ  2300  IF  FQ(4,J)>255  THEN  C= 
FQ(4,J)-255!FQ(5,J)=FQ 
{5,J)+C:FQ(4,J)=255 

KA  2  310  BEND 

XP  2320  NEXTK.JtRETURN 

SJ  2400  BP=0 

KG  2410  FORJ=0TO8:J1=( J-4)*(4- 
J>0)iJ2=S-(J>4)*(4-J): 
FORK=JlTOJ2 

JE  2420  A=MAP(J,K,0) 
HQ  2430  R=HAP(J,K,1) 
EG  24^0  IF  (A=0JOR(R=0)  THEN24 

90 
KQ  2450  IF  ARMY(A,0,R-1)<1  THE 

N2490 
DK  2460  T=J+1:B=K:GOSUB2  500 
HK  2470  B=B-1:GOSUB2500 
BP  2480  T=T-1 :GOSUB2  500 
RH  2490  NEXTK, J: RETURN 
RR  2500  IF(T<0)OR(B<0)OR(T>8)O 

R(B>8)THEN  RETURN 
MA  2510  PA=HAP(T,B,0):IF  PA=0 

{ SPACE ITHEN  RETURN 
FG  2520  IF  HAP(T,B,1)=R  THEN  R 

ETURN 
FX  2530  IF  ARMY(PA,0,2-R) <1  TH 

EN  RETURN 
MA  2540  BP=BP+l!BTL(BP,R-l,0)= 

A!BTL(BP,2-R, 0)=PA:RET 

URN 
CF    2600     IFBP=0THENRETURN 
FC    2610    FORJ=1TOBP 
XM    2620    FORK=0TO1:A=1-K 
QX    26370    AN=BTL(J,K,0) 
BF    2640    AS=ARMY ( AN , 0 , K ) : HT=ARM 

Y(AN,6,K) :CT-INT(AS/HT 

)+l 
GH    2650    BTL(J,A,1)=INT(CT*KA+1 

) 
JC    2660    BTL( J,A,2)=INT(CT*KB+1 

) 
MB    2670    BTL(J,A,3>=INT(CT*KC+1 

) 
XC    2680    NEXTK, J 
MD    2700    FORJ=1TOBP:J0=BTL(J,0, 

0) :J1=BTL( J,1,0) 
BR    2710    GOSUB3100 
CG    2720    ARMY(J0,0,0)=ARMy(J0,0 

,0)-A*BTL(j,0,l) 
SK    2730    ARMY(J1,0,1)»'ARMY(J1,0 

,1)-B*BTL( J,l,l) 
MS  2740  GOSUB3100 
BC  2750  C=A*BTL( J,0,2) !ARMy( J0 

,0,0) =ARMY ( J0 , 0 , 0 ) -C : A 

RMY( J0 ,1,0 )=ARMY( J0 , 1 , 

0)+C 
FJ  2760  C=B*BTL(J,1,2) jARMY( Jl 

,  0  , 1  )  =  ARMY  (  Jl ,  0  , 1 ) -C :  A 


RMY(J1,1, 1)=ARMY(J1,1, 

1)+C 
QD  2770  GOSUB3100 
AX  2780  C=A*BTL(J,0,3) !ARMY(J0 

,0,0) =ARMY ( J0 , 0 , 0 ) -C ! A 

RMY C J0 ,3,0 )=ARMY( J0 , 3 , 
0)+C 
FF    2790    C=B*BTHJ,1,3)  :ARHY(J1 
,0,l)=ARMY(Jl,0,l)-CtA 
RMY(J1,3,1)=ARMY(J1,3, 
1)+C 
XP    2800    NEXTJ 
CB    2910    RETURN 
GQ    2900    A=1-PN!B=0 
GG    2910    FORJ=0TO8  !FORK=«0TO8 
PA    2920    IFMAP(J,K,1)=PN+1THENB 

=B+1 
KD    2930    NEXTK, J 

JB  2950  FQ(1,PN)=FQ(1,PN)+B:  I 
F  FU(1,PN)>255  THEN  B= 
FQ(l,PN)-255iFQ(2,PN)= 
FQ(2,PN)+B!FQ(1,PN)=25 
5 
GQ  2960  T=4:B=PN*8 
SJ    2970    IF    MAP(T,B,0)<>0    THEN 

(space) RETURN 
JK    2980    IF    MAP(T,B,1)=PN+1    THE 
N    FQ(0,A)=0!FQ(1,A)=0: 
GOTO3060 
XS    2990    J=SX(A) :IFJ>31THENRETU 

RN 
HR    3000    J1=FQ(0,A)  :IF   JKl    THE 

N3060 
EP    3010    NX(A)=NX(A)+1 
XE    3020    MAP(T,B,0)=J:HAP(T,B,1 

)=A+1 
BK    3030    ARMY(J,0,A)=J1 

QR   3040    P0RK=1T03:ARMY(J,K,A)= 

0 ! NEXTK 
PM   3050    ARMy(J,4,A)=T:ARMY(J,5 

,A)=B 
KH    3060    FORK=0TO19sFQ(K,A)=FQ( 

K+1,A) jNEXTK 
PK    3070    Fa(20,A)=0 
BA    3080    RETURN 
FS    3100    A=0 :F0RM=lT06!lFRND(l) 

<.STHENA=A+1 
AH    3110    NEXTM:B=6-A: RETURN 
PS    3200    WINDOW6,7,33,16,l 
EJ    3210    PRINT"E73^2    H3B2    Li 

(RVSJE2    KllJlEHiEGi    SC 

EKARIO    EMlEKigLHOFF] 

g3    KHJIBS    G^^MI" 
FB    3220    PRINT  ■■{  LEFT  lEGigMl 

{2    SPACES) 1>    CAPTURE    C 

APITAL/FAR{2    SPACES) 

iGl"; 
QX    32  30    PRINT"|MS{2    SPACES )2> 

{SPACE  3  CAPTURE    CAPITAL 

/NEAR    EgI"; 
GQ    3240    PRINT"EMi{2    SPACES )3> 

{ SPACE )OCCUPY 

{3  SPACES }8/l2  CITIES 

ISPACE)gG|"; 
AR  32  50  PRINT"iM§{2  SPACES )4> 

(SPACE) CONTROL 

(2    SPACES }6/12    CITIES 

f SPACE )EGi"; 
DJ    3260    PRINT"iMH2    SPACES)5> 

( SPACE )OCCUPY 

C2  SPACES) 40/ 61  HEXES 

{2  SPACES  }  iG3  gH3  ■';  :PRI 

NTSPC(26) ;"EGi" 
SQ  3270  PRINT"|2  M3E2  LI(RVS) 

§2  KiEJlEHigGl 

(10  SPACES )gM3£N3ELl 

(0FF)g3  K3EJ3E2  Gl" 
GE  3280  GETKEYA? iGN-VAL(AS) :IF 

GN<lORGN>5THEN3  2a0 
DP  3290  CHAR1,2,1+C-N,  "ZZ":SLEE 


PX  3300 
GS  3400 

JD  3410 


KD  3420 


BB  3430 


CR  3440 
SG  3450 


KB  3460 


FP  3470 
BC  3480 
JB  3490 
FG  3500 
PK  3510 

MB  3520 

DB  3530 


KJ  3540 
CB  3550 


QF  3560 


AB  3570 
RK  3580 
PP  3590 
KH  3600 

SR  3610 
CE  3620 


RK  3630 


DF  3640 


PI :PRINT"{2  HOME)" 

RETURN 

A=0:ON  GN  GOSUB  3430,3 

450,3480,3490,3580 

IPA=0THENRETURN  sELSEEN 

S=CS :QQ^A;GOSUfi600;GOS 

UB1710:A=QQ 

P  RINT" { HOME) PLAYER" ; A; 

"    WINS"lPRINTEN? :PRINT 

"(PRESS    ANY   KEY)"!POKE 
208,0!GETKEYA?sRUN 
IF    MAP(CIT(2,0),CIT(2, 
1),1.)  =  1THENA=2!CS  =  "BLU 
E    CAPTURED    THE    CAPITAL 

"{RETURN 
GOTO3460 

IF  MAP(CIT(3,0) ,CIT(3, 
1  )  , 1 )=1THENA=2 lC$  =  'BLU 
E    CAPTURED    THE    CAPITAL 

"  I  RE  TURN 

IF   MAP(CIT{1,0),CIT(1. 

1 ) , 1 )=2THENA-1 :C$-" VIC 
LET  CAPTURED  THE  CAP  IT 
AL" 

RETURN 

L-SlGOTO3500 

L-6 

C(1)=-0jC(2)-0 

FORJ-1TO12:T=CIT(J,0) « 

B-CITCJ,1) 

R-MAP(T,B,1) iC(R)=C(R) 
+  1 

IF    GN=4THEN    AN=MAP{T,B 

,0)iIF    R>0    THEN    IF     (AN 

=0)OR(ARHY(AN,6,R-1)>0 

)THEN    C(R)=«C(R)-1 

NEXTJ 

IF    C(l)=>    L   THEN    A=2:C 

$="BLUE    HAS    CAPTURED "+ 

STR?(C(1))+"    CITIES'lR 

ETURN 

IF   C(2)»>    L   THEN    A=llC 

5=" VIOLET    HAS    CAPTURED 

"+STR$(C(2) )+"    CITIES" 

RETURN 

C(1)=0!C(2)=0 

FORJ=0TO8  jFORK=0TO8 

R=MAP(J,K,1) !C(R)»C(R) 

+  1 

NEXTK,  J 

IF    C(1)->40THENA=2:C$= 

"BLUE  OCCUPIES "+STR$(C 

( 1 )  )  +"  HEXES  •*  1  RETURN 

IF  C(2)=>40THENA=1:C5= 

"VIOLET  OCCUPIES "+STR5 

(C(2))+"  HEXES" 

RETURN 


Program  2.  Hex  War  For 
Commodore  64 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 

EB    0    POKE53269,0tPRINT"[CLR)": 

XC=14:YC=12:GOSUBX  sPRINT" 

PLEASE  WAIT"!GOT0  9 
ME  1  POKE781,yC!POKE782,XC:POK 

E7 83, 0:SY365 5  20: RETURN 
GB  2  QV=15-(PEEK(56320)AND1S) : 

J=JY{QV) -128* ((PEEK (56320 

)AND16)=0) : RETURN 
JQ  3  QV=QVAND255:H?="012345678 

9ABCDEF " : Z$  =HID5 ( H$ , INT ( Q 

V/16)+1,1) 
EH  4  Z?=Z$+MID?(H$,QV-INT(QV/1 

6)*16+1,1) :RETURN 
XC  9  IFPEEK( 12289 )+PEEK( 12290) 

=212THEN20 
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GJ  10  POKE56334,0:POKE1,51 !FOR 
I=0TO2B4  7iPOKEI+12288,PE 
EK( 1+53248) iNEXT:POKEX ,5 
5 

KS  20  POKE56334,l :POKE53272,2a 
:C4=S3280:C0 =53281 :C5=64 

6:SC=53287 :POKE2040,13 
AC  25  FORA=0TO10:READJY(A) jNEX 

T : DATA  0,1,5,0,7,3,6,0,3 

,2/4 
KM   26    FORA=54272T054295:POKEA, 

0:NEXTtPOKEA, 15 :POKE5427 

3,40:POKES4277,25 
PD    30    DIHJ,K,HT,HB,CT,CB,J1,J2 

,A,B,C,D,E 
PK    40    DIM   ARMY(31,6,1),BTL(64, 

1,3),MAP(9,9,2),FQ(20,1) 

,NX(1),C(2) 
BQ    50    CN=12iDIM   CIT(CN,1) 
BC    60    A=RND(-Tl/97) !P0?="{BLU) 

C0FF]E2    Pi (down} (2    LEFT) 

E6|E*if":Pl$=" jYELf 

Crvs3£F*Hoff]  [down} 

(2    LEFT}{PUR)i2    Yj " 
EP    70    PN=1:ME=31 
CE    80    MM=3!    REM   MAX    MOVES 
JG    90   KA=l/48:KB=l/48!KC=l/32 
SM    110    F0RJ=1T04:READA 
FQ    120    FORK=ATOA+7  5READB:POKEK 

,B:NEXTK,J 
RA    130    DATA    12936,240,240,63,1 

AS    140    DATA    12984,15,15,252,24 

0,192,192,192,192 
PP    150    DATA    12840,3.3,3,3,15,6 

3,240,240 
BJ    160    DATA    12944,192,192,192, 

192,240,252,15,15 
DQ    170    FORJ=0TO63:READK:POKE83 

2+J,K:NEXT 
CC    180    DATA0, 255, 0,15, 195, 240, 

63,0 
KM    190   DATA252,48,0,12,48,0,12 

,48 
AE    200    DAT A0, 12, 48, 0,1 2, 48, 0,1 

2 
GD    210    DATA48,0,12,48,0,12,48, 

0 
JA   220    DATA12,48,0,12,4e,0,12, 

48 
EG    230    DATA0, 12,48,0,12,48,0,1 

2 
KB    240    DATA48,0,12,48,0,12,63, 

0 
BK    250    DATA252,15,195,240,0,25 

5,0,0 
KF    260    FORJ=1TOCN:FORK=0TO1 sRE 

AD   CIT( J,K) :NEXTK:MAP(C 

IT(J,0),CIT(J,1),2)=1:N 

EXTJ 
ER  270  DATA  8,4,0,4,8,0,0,8,4, 

0,4,8 
JQ  280  DATA  5,5,3,3,6,3,2,5,5, 

2,3,6 
FP  300  GOSUB600sGOSUB3200:GOSU 

6600 
HD  310  XC=6:YC=ll!GOSUBl iPRINT 

"{BLU3 fRVS}{2  SPACES )L 

gM3{2  SPACES }lEY3 

(2  SPACES }MN{ 4  SPACES) 

Eg3EhH2  SPACES  )NH 

{2  SPACES }0M[ 2  SPACES)" 
CH  320  XC=6iYC=12 :G0SUB1 :PR1NT 

"{PUR} (RVS}(2  SPACES) 

gGiEM3t2  SPACES )LEPi 

(2  SPACES )NM{ 4  SPACES }N 

M{2  SPACEsToEHi 

T2  SPACES JiGiH 

{2  SPACES) {HOME} [RED) 

{ OFF } " ; 
SM  330  PRINTSPC (10) ; "PLEASE  WA 


IT  A  MOMENT" 
FJ  340  GOSUB1500 
SB  410  POKE198,0 
QX  420  GOSUBi900!GOSUB600sGOSU 

Bl 710! REM  FIND  BATTLES 
BR  430  POKEC4,6-2*PNiGOSUB800i 

REM  JOYSTICK 
PF  440  POKEC4,8iGOSUB2100(REM 

{SPACE} BATTLES  AGAIN 
PB  450  POKEC4,3:GOSUB2600sREM 

{SPACE} RESOLVE 
BP  460  PQKEC4,0iGOSUB2100:REM 

{SPACE} POST- BATTLE 
EM  470  POKEC4,15 tGOSUB2200iREM 

SPLIT  PRISONERS 
JP  480  GOSUB  2900 :REM  REINFORC 

EMENTS 
SR  490  POKEC4,7iGOSUB3400 
HS  500  PN=1-PN 
KC  510  GQTO410 
AC  600  P0KEC4,1 :POKEC0,1 sPOKEC 

5,15jPRINT"{CLR)"; jPRIN 

TiPRINTiPOKESC,0 
CB   610    F0RJ=lTO5» PRINTS PC (13-2 

*J) ; !F0RK=lT0J+3 :PRINT" 

ER(2    SPACES}"; sNEXTK: PR 

INT"ER" 
CS    620    PRINTBPC(i2-2*J) ;:F0RK= 

ITOJ+4:PRINT"W 

{2    SPACES }Q" ; !NEXTK:PRI 

NT:NEXTJ 
QX    630    F0RJ=1T05 !PRINTSPC{J*2) 

; :FORK=1TO10-J:PRINT"R 

{2    SPACES}E"; :NEXTK:PRI 

NT 
SS    640    PRINTSPC(J*2+1) ; !F0RK=1 

T09-J:PRINT"QW 

{2    SPACES)"; iNEXTKsPRIN 

T  "QW" 
PX    650    NEXTJ 

CD  660  c5="uiEdown) (2  leftIjk" 
:  D5='^RVS }  iv|  Ec3  {  doWnT 

{2    LEFT}iFHD?" 
QC    670    POKEC5,2!F0RJ=lT012iG0S 

UB710:NEXT 
FJ    680   J=1:P0KEC5,6:IFGN=1THEN 

C$=D$ !GOSUB710 : J=2 :POKE 

C5,4:GOSUB710 
RQ    690    IFGN=2THENC$=D5 :G0SUB71 

0:J=3:POKEC5,4:GOSUB710 
SH    700    PRINT"{H0ME)"; :RETURN 
PD    710    K=CIT( J,0) !L=C1TC J,l) !X 

=(K-L) *2+19 :Y= (12-(K+L) 

)*2+3 
RB    715    XC=X:YC=Y:G0SUB1:PRINTC 

S : RETURN 
FF    800    IF    NX(PN)<2    THEN    RETURN 
CQ    805    HT=4:HB=4!GOSUB1000:POK 

E53269,l :POKESC,0 
DJ    810    MV=0:CT=0:CB=0!PK=0:K=0 
AX    820    FORJ=lTONX(PN)-l !lF(ARM 

Y(J,0,PN)>0)AND(ARHY(J, 

6,PN)<1)THENK=1 :J=NX{PN 

)-l 
KX    830    NEXTJsIFK=0    THEN    RETURN 
SB    840    GETG9:IFG$=CHR$(13)THEN 

RETURN 
MA    850    GOSUB2:IFJ=0THEN840 
FD    855    IF{JAND128)THEN1100 
BR    85  7    IF(JAND1)=0THEN840 
DD   860    J=( J-1)/2:IFJAND1THENB1 

=HB+J-2:T1=HT!GOTO870 
AE    865    T1=HT+1-J:B1=HB 
HD    870    IF    (T1<0)OR(T1>8)THEN84 

0 
FP    880    IF     (B1<0)OR(B1>'8)THEN84 

0 
KC   890    S1=T1+B1 :IF(S1<4)0R(S1> 

12)THEN840 
QR   895    HB=B1 :HT=Tl!GOSUB1000 
SC    896    PRINT     " ( HOME } " ; :FORZ=lT 


06!PRINT"{8    SPACESj"lNE 
XT 
QE    900    QN=MAP(HT,HB,0) :IFQN=0T 

HEN840 
KD    905    Q1=MAP(HT,HB,1)-1 
FF    910    P0KEC5,6-2*Q1 rPRINT" 

[HOME }"QN;PRI NT "****** 
{OFF}E53" 
GM    920    FORJ=0TO3 :PRINTARMy(QN, 

J, 01) sNEXT 
QB    930    GOTO840 
PA    1000    SX=172+16*(HT-HB)!SY=2 

64-16*(HT+HB> 
BK    1010    POKE53249,0:POKE53248, 
SXAND255:POKE53264,-CS 
X>255)iP0KE53249,SY 
FF    1020    IF   MAP(HT,HB,2)=1THENP 

OKESC, 2: RETURN 
HG    1030    POKE53269,l :POKESC,0:R 

ETURN 
RR    1100    GOSUB2:IFJ<>0THEN1100 
KB    1110    IFPK=iTHEN1200 
FK    1120    IF((MAP(HT,HB,1)<>PN+1 
)OR(MAP(HT,HB,0)=0) )TH 
ENGOTO810 
SE    1130    AN=MAP(HT,HB,0) :IFARMY 

(AN,6,PN)  O0THEN810 
SJ    1140    PK=liCT=HTiCB=HBiCS=AE 

MY(AN,0,PK) 
EX    1150    POKE54276,32:POKE54276 

,33 
HK    1160    GOTO840 
XP    1200    J=( (HT=CT}AND{HB=CB)) 
AQ    1210    IFJAND(MV=0)THENB10 
RE    1220    IFJANO(MV>0)THEN1420 
DG    1225    AS=ARMY(MAP(HT,HB,0),0 

,PN) 
CA    1230    IF((AS>HE)AND(CS>ME)  )0 
R( (MAP(HT,HB,1>-1=1-PS 
)AHD(AS>0))THENS40 
SE    1235    DT=ABS{CT-HT) :DB=ABS(C 

B-HB) 
MF    1240    TL=DB+DTiIP    NOT((TL=l) 
0R( (CT+CB=HT+HB )AND( DT 
=1) ))THEK840 
FS    1250    MG=MAP(HT,HB,0) iIF   MG= 

0THEN1300 
AE    1260    FORJ=0TO3 !ARMY(MG,J,PN 
)=ARMY ( MG , J , PK) +ARHY ( A 
N,J,PN) IARMY(AN,J,PN)= 
01 NEXTJ 
SM    1270    ARMY(MG,6,PN)=l!HAPCCT 

,CB,0)=0 
AD    1280    CS=ARMY(MG,0,PN) lAN^MG 

iHV=MMfl 
RH  1290  GOTO  1380 
FF  1300  NB=MAP(HT,HB,1)-1  iMV=«M 
V+ 1 s I F ( N8  <>  PN ) THENMV=M 
V+1 
DK  1310  MAP(CT,CB,0)=0 
MF  1320  MAP(HT,HB,0)=AN:MAP(HT 
,HB, 1)=PN+1:ARHY(AN,4, 
PN)=HT:ARMY(AN,5,PN)=H 
B 
HE  1322  IFMV>=HMTHENARMY(AN,6, 

PN)=1 
RB  1325  K=0 :F0RJ=-1T01STEP2:J1 
=HT+ J I J2=HB+ J : J3=HB- J : 
IFCJ1<0)OR{J1>8)THEN13 
40 
AR  1327  IF{MAPC J1,HB,0)<=0)THE 

N1340 
GK  1330  IF(HAP( J1,HB,1)=2-PN)T 

HENK=1 : J=l :GOTO1360 
HQ  1340  IF(J2<0)OR( J2>8)THEN13 

50 
BH  1342  IP(MAP(HT,J2,0)>0)THEN 
IP(MAP(HT, J2,1)=2-PN)T 
HENK=1 ! J=l :GOTO1360 
SH  1350  IF(J3<0)OR( J3>8)OR( Jl< 
0)OR(J1>8)THEN1360 
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RP  1352  IF(MAP(J1,J3,0)>0)THEN 
IF(MAP(J1,J3,1)=2-PN)T 
HE8K=1:J=1 

RB    1360    NEXTJ 

AS    1370    IFK=1THEN    ARMy(AN,6,PN 

)=lsHV=HM+l 
EG    1380    A=PNtJ=CT:K=CB:C=0:D=0 

SGOSUB1830 
QP  1390  J=HT:K=HB!C=CS:[>=ARMY( 

AN,6,PN) :GOSUB1830 
XJ  1400  CT=HT:CB=HB 
MQ  1410  IFMV<HMTHEN840 
HA  1420  ARHY(AH,6,PN)=l:J=HTiK 

=HB:C=CS:D=l!GOSUB18  30 
SG  17430  GOTO810 
GR  1500  REST0RE:F0RZ«1T0135:RE 

ADB:NEXT:FORJ=aT01 iNX( 

J)=5  :F0RK='1T04:READA,  B 

.C 
QM  1510  ARMY(K,0,J)=A:ARMY(K,4 

,  J  )  =  B :  ARMY  (  K ,  5  ,  J  )  =C  :.rtA 

P ( B , C , 0 ) =K : MAP ( B , C , 1) = 

J+1 
B7J  1520  NEXTK.J 
EK  1530  REM  STRENGTH,  T-POS,  B 

-POS 
JD  1540  DATA  64,2,8,64,3,7,64, 

5,6,64,6,6 :REM    BLUE 
QP    15  50    DATA    64,2,2,64,3,2,64, 

5,1,64,6,0:REM    VIOLET 
.JK    1600    REM    SET    RANDOM    REINFOR 

CEMENTS 
PB    1610    FORJ=0TO1 :FORK=0TO20!A 

=INT(RND(1)*K*3) tFORL= 

1T0S:A=A+INT(RND(1)*21 

-8) 
JR    1620    NEXTL:IFA<16THENA=0!GO 

TO1630 
XF    1625    A=(A+K*8)AND254 
HA    1630    FQ(K,J)=A:NEXTK,J 
RG    1640    RETURN 
EH    1700    REM    ARMIES->MAP 
SC    1710    FORJ=0TOa :FORK=0TO8 
FX    1720    A=MAP(J,K,1) !lFATHENA= 

A-1 :GOSUB1800 
HH    1730    NEXTK,J 
PH    1740    FORA=0TOl:E=13+A*l2iF= 

A*22:DX=2-4*A:D=0 
PF    1750    FORJ=0TO8:C=FQ(J,A) iGO 

SUB1840 
HF    1760    E=E+DX*2:IFJ>3THENF=F+ 

DXsE=E-DX 
XC    1770    NEXTJ, A 
CA    1780    RETURN 
QG    1800    B=MAP{J,K,0) 
PH    1810    C=ARMY(B,0,A) 
BK    1820    D=ARMY(B,6,A) 
FJ    1830    E=(J-K+10)*2-1:F=(13-J 

-K)*2+l5     REM    T&B    TO    X/ 

Y 
SK    1840    XC=E:YC=F:G0S0B1 :IFATH 

ENPRINTP1$:GOTO1850 
SB    1845    PRINTP0$ 
MH    1850    IFC=0THENRETURN 
DF    1060    POKEC5,6-2*A!XC=EsYC=F 

+A:GOSUBl 
CF     1870    QV=C:G0SUB3 :PRINTCHR$C 

18);Z5;CHR?(146) 
RD    1880    IFDTHENF=F+1-A!G=1024+ 

E+F*40jPOKEG,43:POKEG+ 

1,43! REM    ++ 
XK    1890    RETURN 
GC    1900    SW=0:E=NX(PN)-lsIFE<lT 

HENRETURN 
SP    1910    F0RJ=1T0E-1 :IFARMY( J,0 

,PN)>=1THEN1970 
SE    1920    T=ARMY( J,4,PN) !B=ARMY( 

J,5,PN) iIFMAP(T,B,0)=J 
THENMAP(T,B,0)=0 
BP    1930    FORK=JTOEtFORL=0TO6:AR 

MY(K,L,PN)=ASMY(K+1,L, 


PN) iARMY(K+l,L,PN)"0iN 

EXTL 
JQ  1940  T=ARMYCK,4,PN) iB=ARHY( 

K,5,PN) iHAP(T,B,0)=K 
PH  1950  NEXTK 
CA  1960  NX(PN)=NX(PN)-liJ=E!SW 

=  1 
FJ  1970  NEXTJ tlF  SW  THEN19007 
MG  2000  FORJ=1TOE!ARMY(J,0,PN) 

=ARMY(J,0,PN)+ARHY(J,2 
,PN) 
SD  2010  ARMY{ J,2,PN)=ARHY(J,3, 

PN) iARMY{ J,3,PN)=0 
QS    2020    ARMY(J,6,PN)=0 
PP    2030    NEXTJ tK=NX( 1-PN) t FOR   J 

=1TOK:ARMY(J,6,1-PN)=0 
sNEXT 
XF    2040    GOSUB2400 
MC    2050     IFBP>0THERFORJ=0TOltFO 

RK=lTOBP :A=BTL(K,J,0) : 

AR(A,6,J)=AR(A,6,J)+1: 

NEXTK, J 
CA    2060    RETURN 
KG    2100    GOSUB2400 
BX    2110    A=NX(0) :IFNX(1)>ATHENA 

=NX(1) 
EX    2120    FORJ=0TO1 :FORK=lTOA:AR 

MY(K,6,J)=0:NEXTK,J 
GP    2130    GOSUB2050 
SH    2140    RETURN 
PB    2200    FORJ=0TO1 :A=1-J:B=NX( J 

)-l 
DD    2210    FORK=1TOB 
JQ    2220    IP   ARMY(K,0,J)>=1    THEN 
2280 
QD    2230    FQ(2,A)=FQ(2,A)+ARMY{K 

,2,J)+ARMY(K,3,J) 
XQ    2235    IF    FQ(2,A)>255    THEN    C= 

FQ(2,A)-255!FQ(3,A)=FQ 

(3,A)+C:FQC2,A)=255 
RM    2240    FQ{6,A)=FQ(6,A)+ARMY(K 

,1,J) 
JC    2245    IF    FQ(6,A)>255    THEN    C= 

FQ(6,A)-255:FQ(7,A)=FQ 

(7,A)+C:PQ(6,A)=25S 
XK    2250    IF   MAP(ARHY(K,4,J),ARM 

Y(K,5,J),0)<>K    THEN    22 

60 
DP    2252    IF  i<lAE(ARMY(K,4,J),ARM 

Y(K,5,J),1)<>J+1    THEN 

E SPACE} 2260 
RR    2253    MAP(ARMY(K,4,J),AR>!y(K 

,5,J),0)=0 
RB    2260    FORL=0TO6iARMY(K,L,j)  = 

0  :NEXTL 
AS  2280  IF  ARMy(K,6,J)>=l  THEN 
2320 :REM  EVACUATE  INJ 

URED 
AE  2290  FQC4,J)=FQ(4,J)+ARMY(K 

,1,J):  ARMY(K,1,J)=0 
DJ  2300  IF  FQ(4,J)>255  THEN  C= 

FQ(4,J)-255!FQ(5,J)=FQ 

(5.,J)+C:FQ(4,J)=255 
XP  2320  NEXTK, J: RETURN 
SJ  2400  BP=0 
KG  2410  PORJ=0TO8:J1=( J-4)*(4- 

J>0) :J2=8-CJ>4)*(4-J): 

FORK=JlTOJ2 
JE    2420    A=MAP(J,K,0) 
HO    243  0    R=MAP(J,K,1) 
BG    2440    IF    (A=0)OR(R=0)    THER24 

90 
KQ    2450     IF    ARMY(A,0,R-1) <1    THE 

N2490 
DK    2460    T=J+1:B=K!GOSUB2500 
HK    2470    B=B-1 :GOSUB2  500 
BP    2480    T=T-1 :GOSUB2500 
RH    2490    NEXTK.J s RETURN 
RR    2500    IF(T<0)OR(B<0)OR(T>8)O 

R(B>8)THEN    RETURN 
MA    2510    PA=MAP(T,B,0) ilF    PA=0 


[ SPACE }THEN    RETURN 
FG    2520    IF    MAP(T,B,1)=R   THEN    R 

ETURN 
FX    2530    IF   ARMY(PA,0,2-R) <1    TH 

EN    RETURN 
MA    2540    BP=BP4-liBTL(BP,R-l,0)  = 

A:BTL(BP,2-R,0)=PAjRET 

URN 
CF    2600     I  FBP=0  THEN  RETURN 
FC    2610    FOHJ=lTOBP 
XM    2620    FOHK=0TOliA=l-K 
QX    2630    AN=BTL(J,K,0) 
BF    2640    AS=ARHY(AN,0,K)  iHT=ARM 

Y(AN,6,K) jCT=INT(AS/HT 

)+l 
GH    2650    BTL(J,A,1)=INT(CT*KA+1 

) 
JC    2660    BTL(J,A,2)=INT(CT*KB+1 

) 
MB    2670    BTL(J,A,3)=INT(CT*KC+1 

) 

XC    26  80    NEXTK, J 

MD    2700    FORJ=1TOBP:J0=BTL( J,0, 

0) :J1=BTL(J,1,0) 
BR    2710    GOSUB3100 
CG    2720    AEMY(J0,0,0)=ARMY(J0,0 

,0)-A*BTL(J,0,l) 
SK    2730    ARMY(J1,0,1)=ARMY(J1,0 

,1)-B*BTL(J,1,1) 
MS  2740  GOSUB3100 
BC  2750  O=A*BTL(J,0,2) :ARMY( J0 

,0,0)=ARMY(J0,0,0)-C!A 

RMY( J0 , 1 , 0 )=ARMY( J0 , 1 , 

0)+C 
FJ  2760  C=B*BTL(J,1,2) iARMY(Jl 

,0,1)»ARMY( Jl,0,l)-CiA 

RMY(  Jl  ,1,1  )=-ARMY(  Jl  ,  1  , 

1)+C 
QD  2770  GOSUB3100 
AX  2780  C=A*BTL(J,0,3)!ARMY(J0 

,0,0)=ARMY(J0,0,0)-C:A 

RHY( J0 , 3 , 0 )=ARMY( J0 , 3 , 

0)+C 
FF    2790    C=B*BTL(J,1,3) iARMY(Jl 

,0,1)=ARMY(J1,0,1)-C:A 

RMYC  Jl  ,3,1  )=AfW1Y(  Jl ,  3  , 

1)+C 
XP    2800    NEXTJ 
CB    2810    RETURN 
GO    2900    A=l-PNiB=0 
GG    2910    FORJ=0TO8!FORK=0TO8 
PA    2920    IFMAP(J,K,1)=PN+1THENB 

=  B+1 
KD    2930    NEXTK, J 
DM    2950    FQ(1,PN)=FQ(1,PN)+B 
HG     2955     IFFQ{1,PN)>255THENB=FQ 
(1,PN)-255:FQ{2,PN)=FQ 

(2,PN)+B:FQ(1,PN)=255 
GQ    2960    T=4:B=PN*8 
SJ    2970     IF    MAPCT,B,0)<>0    THEN 

( SPACE j RETU RN 
JK    2980    IF   MAP{T,B,1)=PN+1    THE 

N    FQ(0,A)=0:FQ(1,A)=0! 

GOTO3060 
XS    2990    J=NX(A) :IFJ>31THENRETU 

RN 
HR    3000    J1=FQ{0,A)  :IF  JKl    THE 

N3060 
EP    3010    NX(A)=NX(A)+1 
XE    3020    MAP(T,B,0)=J:MAP(T,B,1 

)=A+1 
BK    3030    ARMY(J,0,A)=J1 
QR    3040    F0RK=1T03!ARMY(J,K,A)= 

0 : NEXTK 
PM  3050  ARMY( J,4,A)=T:ARMY( J,5 

,A)  =  B 
KH  3060  PORK=0TO19:FQ(K,A)=FQC 

K+1,A) : NEXTK 
PK  3070  FQ(20,A)=0 
BA  3080  RETURN 
FS  3100  A=0:FORH=1TO6:IFRND(1) 
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<.5THENA=A+1 

AH    3110    NEXTM:B=6-A! RETURN 

RD    3200    REM   WINDOW 

CP    3210    Z=6:PRINT"(7    DOWN}"SPC 
(Z)"?73g2    M3E2    LKRVS] 
62    K^gJigHiEGi     SCENARI 
0    6M3iNigLi(OFF)§3    K3 
EJE§2    Gi":GOSUB    3310 

XR    3220    PRINTSPC(Z)"gH3 

(2  spaces) 1>  capture  c 
apital/far{2  spaces} 

BGl" 

DB    3230    PRINTSPC(Z)"iMi 

{2    SPACES} 2>    CAPTURE   C 
APITAL/NEAR    BG^ " 

PP   3240    PRINTSPC(Z)"Sm1 

l2    SPACES) 3>    OCCUPY 
{3    SPACES}8/12    CITIES 
{ SPACE }gG3" 

SF    3250    PRINTSPC{Z}"£M3 

(2    SPACES 5 4>    CONTROL 
(2    SPACES }6/l2    CITIES 

IspacejEgI" 

XH    3260    PRINTSPC(Z)"iM3 

{2    SPACES} 5>    OCCUPY 
(2    SPACES) 40/61    HEXES 
[2    SPACES) id "!GOSUB33 
10 
HX    3270    PRINTSPC{Z)"E2    M3g2    Li 
(RVS)g2    KlEJlgHigGi 
{10    SPACES }6M3EN3iLi 
{0FF}B3    KigJig2    Gl" 
MK    3280    POKE19B,0!WAIT198,l!GE 

TA? :GN=VAL(A$) !lFGH<10 

RGN>5THEN3280 
QK    3290    XC=8:YC=8+GN:G0SUBliPR 

INT "ZZ " ! FORTD=1TO1000 : 

NEXT:PRIKT"(H0ME}" 
PX    3300    RETURN 
XX    3310    P81NTSPCtZ)"EHi 

(26    SPACES }Eg3":RETURN 
GS    3400   A=0:ON   GN   GOSUB    3430,3 

450,3480,3490,3580 
JH    3410    IFA=0THENRETURN 
QP    3415    Q0=AsEN5=C$ :GOSUB600:G 

OSUB1710:C?=ENS!A=QQ 
MJ    3420    PRINT" [HOME) PLAYER", -A; 

"    WINS"sPRINTC5:PRINT" 

(PRESS    ANY    KEY)" 
SE    3425    POKE198,0:WAIT198,1 :RU 

N 
BB    3430    IF   MAP(CIT(2,0) ,CIT(2, 

1),I)-1THENA=2:C$="BLU 

E  CAPTURED  THE  CAPITAL 

" ; RETURN 
CR  3440  GOTO3460 
SG  3450  IF  MAP(CIT(3,0),CIT(3, 

1 ) ,1 )=1THENA=2:C$="BLU 

E  CAPTURED  THE  CAPITAL 

": RETURN 
KB  3460  IF  HAP(CITC1,0) ,C1T(1, 

1) ,l)=2THENA=l!C5="VIO 

LET  CAPTURED  THE  CAP IT 

AL" 
FP  3470  RETURN 
BC  3480  L=8:GOTO3  500 
JB  3490  L=6 
FG  3500  C(1)=0 tC(2)=0 
PK  3510  FORJ=1TO12jT=CIT(J,0) 1 

B=CIT(J,1) 
MB  3520  R=MAP(T,B,1) tC(R)=C(R) 

+  1 
FB  3530  IF  GN=4THEN  AN=HAP(T,B 

,0) 
CX  3535  IFGN04  OR  R<  =  0  THEN35 

40 
HX  3537  IF  AN=0  OH  ARHY(AN,6,R 

-1)>0    THEN   C(R)=C(R)-1 
KJ    3540    NEXT J 
CB    3550    IF    C(l)=>    L   THEN   A=2iC 

$="BLUE  HAS  CAPTURED "+ 


QF    3560 


Afl  3570 

RK  3580 

PP  3590 

KM  3600 

SR  3610 
CE  3620 


RK  3630 


OF  3640 


STR${C(1))+"  CITIES"iR 
ETURN 

IF  C(2)=>  L  THEN  A=l!C 
?=" VIOLET  HAS  CAPTURED 
"+STR?{C(2))+-  CITIES- 
RETURN 

C{l)-0iC{2)=0 
FORJ=0TO8  ;FORK=-0TOB 
R=MAP(J,K,1) iC(R)-C(R) 
+  1 

KEXTK.J 

IF  C(1)=>40THENA=2»C$= 
"BLUE  OCCUPIES "+STR5(C 
(1))+"  HEXES "i RETURN 
IF  G(2)=>40THENA=llC$= 
"VIOLET  OCCUPIES "+STR$ 
{C(2))+"  HEXES" 
RETURN 


Program  3.  Loader  for  64 
Hex  War 

AG    10    DV=8:Q5=CHR$(34) 

OR    20    PRINT" [CLR) POKE    44,64!PO 

KE    16384, 0:NEW" 
XK    30    PRINT" {2    DOWN} LOAD "Q$ "HE 

X    WAR"Q?", "DV 
QA   40    POKE    198,3: POKE    631,19iP 

OKE    632,13:POKE    633,131 


Program  4,  Hex  War  For 
Atari  600XL,  800,  800XL, 
1200XL  and  130XE 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 


a  0 

KP  2 


EB  4 


UN  9 


K  30 


Kl  31 


LHi32 


LE  35 


LF  37 


eN60 


BA  70 

AA  80 

Jl  90 


PRINT  "  fCLEAR> ":QOTD  9 

jOY*="QaaEn:D>CB>  ccjq 
tFyiMyiBya<.Ey<.piyc,y":z  = 

STICK (0)  J  J=ASC  caOY» (Z, Z 

) )+I2a-12B»STRIB«0) :RET 

URN 

IF  QV>25S  THEN  QV=QV-25 

3SQ0TD  3 

H«=  "i-.Hr>,<;tcl^J:fcT5l-''''3^J"  ■-  ' 
V=INT (aV/16>+l: Z»=H*(LV 
, LV) ! LV=aV-INT (QV/i6) »1 
6+l:Z«(2,2)=H*tLV,LV)  :R 
ETURN 

eOSUB  4010:BDSUB  5000:G 
OSUB  6000 
DIM  H» ( 16>  , Z»  (6)  , JOY« C 
16), ARMY < 31 , 14> ,STL(64 
,  B)  ,  riflP(9,29)  ,  FQ{20,  1) 
, NX (1 )  , C  (2)  , P0% tS)  ,P1* 
(8) , C*(50) , 01* (8) 
CN=12: DIM  CIT (CN, 1 ) , D2 
*IB>  , T«(50> 

POKE  53248, 0: HT=0: HB=0 
; J=0: K-0:CT=0: CB=0: Jl= 
0: J2=0:fl=0: B=0:C=0 
FOR  A=0  TO  9:F0R  B=0  T 
0  29: MAP (A, B) =0: NEXT  B 
sNEXT  AjFOR  ft"0  TQ  31: 
FOR  B-0  TO  14!flRMY<fl,B 
)=0:NEXT  B:NEXT  A 
FOR  A-0  TO  8:F0R  B=0  T 
□  64: BTL(B, A)=0:NEXT  B 
sNEXT  A 

P0$="#«tDOWN><2  LEFT> 
{2  MJ":P1»="{2  N> 
{D0WNJ{2  LEFT>)*" 
PN-1 jME"3l! SC"704:C4=7 
12 

MM-SsREM  MAX  MOVES 
KA=l/48:KB=l/48:KC=l/3 
2 


AH  270 

Ai  280 

U  300 

m  340 

CM  410 

LD  420 

KD  260  RESTORE  2705FOR  J-1  T 
Q  CNsFOR  K-0  TO  UREA 
D  Z:CIT<,J,K)-=Z:NEXT  K 
:MAP(CIT(J,0) ,C1T<J, 1 
)+10«2)-l!NEXT  J 
DATA  8,4,0,4,8,0,0,8, 
4.0,4,8 

DATA  5,5,3,3,6,3,2,5, 
=,2,3,6 

BQSUB  32a0!POSITION  1 
5, 20: PRINT  "SETTING  U 
P" 

BOSUB  1S00 
POKE  764,255 
BOSUB  1900:8OSUB  600: 
BOSUB  1710 
CC  430  POKE  C4, 54+100*  (1-PNJ 
:GQSUB  8001  POKE  53248 
,0 
l«440  POKE  C4,104:BOSUB  210 

0 
FI  450  POKE  C4,  56:  BOSUB  2600 
6J  460  POKE  C4,0:  BOSUB  2100 
CD  470  POKE  C4,B:S0SUB  2200 
DH  4S0  eOSUB  2900 
CH  490  POKE  C4,7:BD3UB  3400 
M300  PN-l-PN 
Sesi0  BOTD  410 

Ilt6«0  POKE  C4,1:P0KE  SC.lSl 
aRAPHICS  0SPOSITION  0 
,2>P0KE  82,0: POKE  7S6 
,CHBAS;PQKE  5S9,62:P0 
KE  S4279,CHBAS 
IL610  SETCOLOR  2,0,12:SETCO 
LOR  1,0,4!FOR  J«>1  TO 
5:P0KE  8S, 13-2«J:F0R 
K-1  TO  J+3l PRINT  "-. 
"; 2  NEXT  K I  PR  I  NT  "-. " 
»L620  POKE  752,1:  POKE  85,12 
-2«J:FOR  K»=l  TO  J  +  4!p 
RINT  ■',    +";sNEXT  KiP 
RINT  ;NEXT  J 
DJ  630  FOR  J-1  TQ  5:  POKE  85, 
J«2:F0R  K=l  TO  10-J:P 
RINT  ".   -"( :NEXT  KsP 
RINT 
f£640  POKE  BS,J«2+1:F0R  K-1 
TO  9-JsPRINT  "+,    "J 
; NEXT  K:PRINT  "+, " 
CE650  NEXT  J 
PS  660  C»="Ca}<EJ{DOWN> 

t2  LEFT><:Z><:C>"tDl»-" 
XSttDDWNJf2  LEFT>'(";D 
2»»"  :  ;  fDDWN><2  LEFTX 


FH  670 

FOR  J=l  TO  12:B0aUB  7 

10INEXT  J 

JN  680 

J'l:  IF  QN-1  THEN  C»==D 

1*:00SUB  710:  J='2:C«-D 

2*:Q0SUB  710 

KO  690 

IF  BN-2  THEN  C«-D1«:B 

OSUB  710: J-3:t«-D2«:Q 

OSUB  710 

LC  700 

POSITION  0,0!RETURN 

Of  710 

K-CIT (J,0) iL-CIT(J,  1) 

s  X-(K-L)  *2+19:  Y=-(12-( 

K+L) )«2+3 

DH  715 

POSITION  X,Y:PRINT  C» 

! RETURN 

DJ  800 

IF  NX(PN)<2  THEN  RETU 

RN 

BH  805 

HT-4iHB-4:Q0SUB  1000: 

POKE  8C,101 

EN  810 

MV-«:CT-0:CB-0:PK-0:K 

00  820  FOR  J  =  l  TO  NX(PN)-1:I 
F  (ARMY<J,PN*7) >0)  AN 
D  {ARMY(J,6+PN»7)< 1 ) 
THEN  K»l: J»NX<PN)-1 

LE  830  NEXT  JsIF  K  =  0  THEN  RE 
TURN 

PB  840  IF  PEEK<764>-12  THEN 
RETURN 
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JKaSB 

B 

4 

00  855 

I 

7 

HL  B57 

I 

H 

DP  B60 

J 

T 

: 

EI  B6S 

T 

CI  870 

1 

H 

AF  880 

I 

H 

Hf  890 

S 

EK  895 

H 

0 

JS  900 

Q 

HI  90S 

a 

101910 

p 

ir 

BF  920 

F 

T 

HI  930 

B 

Fl  940 

P 

T 

I 

T 

}f  1000 

Hi  1020 


a  1030 

CC  1100 

EN  1  1  1  0 
F«  1120 


PC  1130 

FA  1140 
F«  1150 

U   1  160 

m  1200 
a  1210 

lU  1220 
HB  1225 
LN  1230 

IH  1235 
BE  1240 

HI  1250 
DM  1260 


AA  1270 
JB  1280 


DBUB  2: IF  J-0  THEN  8 

0 

F    J>-128  THEN  POKE  7 

,0:8070  1100 

F   (J/2} -INT < J/2> =0  T 

EN  840 

-(J-1)/2:IF   {J/2)-IN 

(J/2)   THEN  Bl-HB+J-2 

T1»HT:Q0T0  870 

1=HT+1-J : B1=HB 

F  (TK0)   OR   (Tl>8)   T 

EN  840 

F  (Bl<a)  OR  (Bl>a)  T 

EN  840 

1-Tl+BlsIF     (SK4}     OR 

(S1M2)      THEN     840 

B-Bl S HT>T1 s QOSUB  100 

saOSUB  940 

N=MAP(HT,HB) ! IF  QN=0 

THEN  840 

1-MAP (HT,HB+10)-1 

OSITIDN  a,0sPRINT  " 

jONiPRINT  "{3  MJ" 

DR  J-0  TO  3sPRINT  " 

; ARMY(QN, J+ai«7) : NEX 

J 
DTD  840 

OSITION  0,0:FOR  Z"l 
0  6:PRINT  " 
5  SPACES>":NEXT  Z :  RE 
URN 

SX-120  +  B* (HT-HB>  :  SV- 
248-16* (HT+HB) : POKE 
53248, SXiPOKE  203, SY 
:  Z«USR< 1536) 
IF  HAP<HT,HB  +  20)'=1  T 
HEN  POKE  SC,72:RETUR 
N 

POKE  SC, 101: RETURN 
BOSUB  2: IF  J<>0  THEN 

1100 
IF  PK=1  THEN  1200 
IF   (  (MAP  <HT, HB+10) <  > 
PN+t>  OR  (MAP(HT,HB) 
■0) )  THEN  BQTO  810 
AN-MAP (HT, HB) ! IF  ARM 
Y(AN,6+PNt7)<>0  THEN 

810 
PK" 1  I CT-HTl CB-HB  :  CS- 
ARMY(AN,PN«7) 
SOUND  1, 100, 10, 10: FD 
R  A-1  TO  30:NEXT  AjS 
OUND  1,0,0,0 
GOTO  840 

J-((HT-CT)  AND  (HB-C 
B)  ) 
IF  J     AND  <MV-0)  THEN 

B10 
IF  J  AND  fMV>0)  THEN 

1420 
AS-ARMY(MAP<HT,HB> ,P 
N»7) 

IF  ((AS>ME)  AND  (C3> 
ME) )  OR  C  (MAP  (HT,HB  + 
10)-1-1-PN)  AND  (AS> 
0) )  THEN  840 
DT-ABB  (CT-HT)  i DB»ABS 
(CB-HB) 

TL-DB+DTlIF  NOT  ((T 
L-1)  OR  ( (CT+CB=HT+H 
B)  AND  (DT-1)>)  THEN 

840 
MQ-MftP(HT, HB)  I  IF  MQ- 
0  THEN  1300 
FDR  J-0  TO  3: ARMY (MS 
, J+PN«7)»ARMY(MB, J+P 
N«7>+ARMY (AN, J+PNt7) 
; ARMY(AN, J+PN«7) »0: N 
EXT  J 

ARMY (MS,6+PN»7)«1:MA 
P  (CT,CB)-0 

CS-ARMY (MG, PN«7) : AN- 
MBsMV-MM+1 


HB  1290  BQTO  1380 

HB  1300  N8-MAP  (HT,  HB  +  10)-1:M 

V-MV+1  :  IF  (NBOPN)  T 

HEN    MV-MV+1 
H  1310    MAP(CT,CB)-0 
0111320    MAP  (HT,HB)-ANi  MAP  (HT 

, HB+10) -PN+1 I  ARMY (AN 

,4+PN»7)-HT: ARMY (AN, 

5+PN*71 -HB 
FB  1322  IF  MV>-MM  THEN  ARMY  ( 

AN,6+PN«7)-1 
JA1325  K-0:FOR  J--1  TO  1  3T 

EP  2! J 1-HT+J: J2-HB+J 

I J3-HB-J: IF  (Jl<0)  0 

R  (J1>B)  THEN  1340 
1(111327  IF  (MAP(Jl,HB)<-0)  T 

HEN  1340 
0£  1330  IF  (MAP(Jl,HB+10)-2- 

PN)  THEN  K-ljJ-l:eOT 

0  1360 

8111340  IF  <J2<0)  OR  (J2>8) 

THEN  1350 
DC  1342  IF  (MAP(HT,  J2)  >0)  TH 

EN  IF  (MAP (HT, J2+10) 

"2-PN)  THEN  K-l:J-ls 

BDTO  1360 
Cil  1350  IF  (J3<0)  OR  (J3>B) 

OR  (J1<0)  DR  (Jl>8) 

THEN  1360 
6D  1352  IF  (MAP(  Jl  ,  J3)  >0)  TH 

EN  IF  (MAP(J1 , J3+10) 

-2-PN)  THEN  K-1:J=1 
n   1360  NEXT  J 
BF  1370  IF  K-1  THEN  ARMY<AN, 

6+PN«7) -1 : MV-MM+1 
OC  1380  A-PN!  J-CT:  K-CB:C  =  0:  D 

>>0:GOSUB  1830 
HC  1390  J-HT«K-HB:C-CS:D"ARn 

Y (AN, 6+PN»7) ! QOSUB  1 

830 
LL  1400  CT-HT:  CB-=HB 
JJ  1410  IF  MV<MM  THEN  840 
EF  1420  ARMY  (AN,  6  +  PNt7)»l:  J- 

HT:K-HBsC-CS!D»l:QOS 

UB  1S30 
JK  1430  GOTO  810 
HC  1500  RESTORE  1540:FDR  J=0 
TO  1 : NX (J) -5: FOR  K- 

1  TO  4!READ  A,B,C 

1:6  1510  ARMY  (K,J*7)-A:  ARMY  (K 

,4+J»7)-Bi ARMY (K,5+J 

»7)-C:MflP (B,C)-K:MAP 

(B,C+10) -J+1 
BF  1520  NEXT  K:NEXT  J 
BL  1340  DATA  64,2,8,64,3,7,6 

4,5,6,64, 6,6 
AB  1530  DATA  64,2,2,64,3,2,6 

4,5, 1,64,6,0 
EI  1600  REM  REINFORCE 
HL  1610  FOR  J-0  TO  1:F0R  K-0 
TQ  201 A-INT (RND ( 1 ) » 

Kt3)  : A-INT (RND (1 >  «K* 

3) ;FDR  L-1  TO  Ss A-A+ 

INT(RND(l)*21-8) 
BL  1620  NEXT  L:IF  A<16  THEN 

A«=0:GOTO  1630 
IJ  1625  Z-A  +  K»Bi  A-INT  (Z/2)  «2 
HI  1630  FQ  (K,  J>-A:NEXT  KsNEX 

T  J 
KL1640  RETURN 
IJ  1700  REM  ARMIES>MAP 
PS  1710  FOR  J-0  TO  8;FDR  K-0 

TO  8 
Jl(1720  A-MAP  (J,  K+10)  :  IF  ft  T 

HEN  A-A-1: QOSUB  1800 
BI  1730  NEXT  KiNEXT  J 
HB  1740  FOR  A-0  TO  liE-13  +  A* 

12:F-A«22!DX-2-4«A:D 

-0 
CG  1750  FOR  J-0  TO  8:C-F0(J, 

A):G05UB  1840 
IIF  1760  E-E+DX*2:IF  J  >3  THEN 
F-F+DX:E-E-DX 


BC  1770  NEXT  JsNEXT  A 

lA  1780  RETURN 

Dl  1800  B-MAP(J,K) 

BE  1810  C-ARMY  (B,  A»7) 

EH  1820  D-ARMY  (B,  6  +  A»7) 

HA  1830  E- (  J-K+10)  »2-l:F-(13 

-J-K) *2+l 
OA  1840  POSITION  E,FlIF  A  TH 

EN  PRINT  Pl»iiGOTO  1 

850 
K 1845  PRINT  P0*! 
BB1B50  IF  C-0  THEN  RETURN 
BFia60  POSITION  E,F+1-A 
BE  1870  (3V-ClG0SUB  3:PRINT  Z 

«l 

LP  1BB0  IF  D  THEN  POSITION  E 

,F+A:PRINT  CHR»(63-A 

} ; CHR*(63-A) 
LC  1890  RETURN 
BK  1900  SW-0SE-NX  (PN)-l  :  IF  E 

<  1  THEN  RETURN 
CE  1910  FOR  J-1  TO  E-liIF  AR 

MY  (J,PN*7)  >-l  THEN  1 

970 
tE  1920  T-ARMY  (  J,4  +  7iPN)  :B-A 

RMY(J, 5+PNt7) : IF  MAP 

(T,B)-J  THEN  MAP(T,B 

}  -0 
CB  1930  FOR  K-J  TO  EiFOR  L-0 
TO  6i ARMY(K,L+PN»7) 

-ARMY(K+1,L+PN»7) l AR 

MY<K+l,L+PNt7) -0:NEX 

T  L 
[(1940  T-ftRMY(K,4  +  PN»7)  :B-A 

RMY  (K,5+PN«7)  ! MAP (T, 

B)-t< 

FJ  1950  NEXT  K 

01(1960  NX  (PN>=NX  (PN) -1  :  J=E: 

SW—  1 
116  1970  NEXT  J:IF^  SW  THEN  19 

00 
EF2000  FOR  J=l  TO  E:ARMY(J, 
PN*7)-ARMY(J,PN«7)+A 
RMY  (J , 2  +  PNt7) 
LH2010  ARMY(J,2  +  PN»7)-ARMY  ( 
J, 3+PN«7) : ARMY (J,3+P 
N*7)=0 
JB2020  ARMY(  J,  6  +  PN«7)  =0 
EB2030  NEXT  J  :  K-NX  (  1 -PN)  :  FO 
R  J=l  TO  K:ARMY(J,6+ 
7*  (  1-PN)  )-0: NEXT  J 
AH  2040  QOSUB  2400 
BC  2050  IF  BP>0  THEN  FOR  J  =  0 
TO  1:F0R  K=l  TO  BP: 
A-BTL (K, J) : ARMY (A, 6+ 
J»7) -ARMY (A, 6+J«7) +1 
iNEXT  K:NEXT  J 
i;i2060  RETURN 
AJ2100  eOSUB  2400 
KD2il0  A-NX(0):IF  NX(1)>A  T 

HEN  A=NX(1) 
11(2120  FOR  J-=0  TO  1:F0R  K=l 
TO  A: ARMY (K,6+J»7) = 
«:NEXT  KsNEXT  J 
AH2130  B03UB  2050 
(H2140  RETURN 
002200  FOR  J  =  0  TO  1:A=1-J:B 

"NX (Jl-1 
E):2210  FOR  K-1  TO  B 
KI  2220  IF  ARMY  (K,  J*7)  >=1  TH 

EN  2280 
BD  2230  FQ  (2,  A) -FO  (2,  A) +ARMY 
(K, 2+J»7) +ARMY (K, 3+J 
*7) : IF  FQ (2, A) >255  T 
HEN  C-FQ(2, A)-255:FQ 
(3, A) -FQ (3, A)+C:Fa (2 
, A)=235 
Bi:2240  FQ  (6,  A)  "FQ  (6,  A) +ARMY 
(K,  1+J»7)  :  IF  FQ  (6, A) 
>235  THEN  C=FQ(6,A)- 
253 1 FQ (7, A) =FD(7, A)  + 
C:Fa (6, A)-235 
ltF2250  IF  (MAP(ARMY(K,4  +  J«7 
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) , ftRMY (K, 5+J«7) ) =K) 
AND  (MflP( ARMY (K, 4+J» 
7) , ARMY(K,5+J«7)+lfl) 
)-J+l  THEN  2255 

111(2251     GOTO     2260 

I!II2255  MAP(ARMY<K,  4  +  J«7)  ,  ftR 
MY  CK.5  +  J*7>  ) -a 

NC  2260  FOB  L-0  TO  6:ARMY(K, 
L+J«7>-aiNEXT     L 

«t  22S0     IF     ARMY  (K,6  +  Jt7)  >=1 
THEN    2320 

Sfl  22981  FQ  (4,  J)=Fa  (4,  J)+ARMY 
(K,  1+J»7)  : ARMY (K,  1+J 
»7)=0 

HK  2300  IF  FQ(4,J)>2SS  THEN 
C=FQ<4, J)-255:F0(S, J 
)-Fa<5, J)+C:FQ(4, J)- 
255 

CO  2320  NEXT  K:NEXT  J  i  RETURN 

KF  2400  BP-« 

LL2410  FOR  J-0  TO  B:Jl"(J-4 

)  «-  (4-J>0)  : J2-8+ (J>4 

) «  (4-J)  !FOR  K-Jl  TD 

J2 
D6  2420  A-MAP(J,K) 
NE  2430  R-MAP(J,  K+10) 
BF  2440  IF  A-0  OR  R-0  THEN  2 

490 
BQ2450  IF  ARMY(A,  (R-1  )  »7)  <1 

THEN  2490 
112460  T«J  +  l:B«=KsSDSUB  2500 
BK  2470  B-B-l!SOSUB  2500 
JC  2480  T»T-1:BDSUB  2500 
D62490  NEXT  K:NEXT  JsRETURN 

DI  2500  IF  T<0  OR  B<0  OR  T>8 

OR  B>a  THEN  RETURN 
fl(2510  PA  =  MAP  (T,B)  :  IF  PA  =  0 

THEN  RETURN 
K1)2S20  IF  MAP  (T,B+10>=R  THE 

N  RETURN 
KP  2S30  IF  ftRMY(Pfl,  (2-R)  *7)< 

1  THEN  RETURN 
KF  2540  BP-BP+1:  BTL  (BP.R-lJ- 
AiBTLCBP,  2-R > -PA: RET 

URN 
BF  2600  IF  BP-0  THEN  RETURN 
JN2610  FOR  J-1  TO  BP 
JO  2620  FOR  K*0  TO  llft"i-K 
IL  2630  AN-BTL(J,K) 
n 2640  AS-ARMYf AN,K«7} :HT-A 

RMY  (AN, 6  +  Kt7)  :CT-INT 

(AS/HTJ+1 
DB  2650  BTL(  J,  A  +  2>  =  INT  (CTtKA 

+  1  ) 
DK  2660  BTL  (J,  A  +  4)  =INT(CT«KB 

+  1  ) 
DO  2670  BTL  ( J,  A  +  6) -INT<CT*KC 

+  1) 
Bli  2680  NEXT  K:NEXT  J 
DD  2700  FOR  J  =  l  TO  BP:J0  =  BTL 

(J, 0)  ; Jl-BTL  (J,  1) 
AO2710  QOSUB  3100 
BL  2720  ARMY  (  J0,0)-ARMY(J0,0 

) -A«BTLCJ,2) 
EO  2730  ARMY  (  Jl  ,7)-=ARMY(Jl  ,7 

)-B«BTL  {J, 3) 
BB  2740  QOSUB  3100 
OE  2750  C-AtBTL  CJ,4)  :  ARMY  (  J0 

,0)=-ARMY  (  J0,  0)  -C:  ARM 

Y(J0,  1)"=ARMY(J0,  1)+C 
ftH  2760  C-B«BTL ( J,5)  : ARMY  (Jl 

,7) -ARMY (Jl , 7)-Cs ARM 

Y(  Jl , 8) -ARMY ( Jl , 8) +C 
BE  2770  QOSUB  3100 
ON  2760  C  =  A«BTL  (J,  6)  ;  ARMY  (J0 

,0) =ARMY< J0, 0> -C: ARM 

Y(J0,3>=ARMY(J0,3)+C 
FD  2790  C  =  B«BTL  (  J  ,  7)  5  ARMY  (  Jl 

,7) =ARMY{J1, 7) -C: ARM 

Y ( Jl , t0>=ARMY ( Jl , 10) 

+  C 


FD  2B00  NEXT  J 

(I  2BI0  RETURN 

CO2900  A=1-PN:B  =  0 

PJ29  10  FOR  J  =  0  TO  8:  FDR  K-=0 

TO  a 
FL  2920  IF  MAP  (J,  K+10>=PN+1 

THEN  B-B+1 
BL  2930  NEXT  KiNEXT  J 
EA2950  FQ  (1  ,  PNJ-FQ  (  1  ,  PN>+B 
B((295S  IF  FQtl,PN)>255  THEN 
B-FQ( 1 ,PN) -255: FQ ( 2 

,PN) »FD(2, PN) +B:FQ ( 1 

,PN)=255 
EP2960    T-4:B  =  PN«B 
8L2970     IF    MAP(T,B)<>0    THEN 

RETURN 
M 29B0     IF    MAP(T, B+10)=PN+1 

THEN    FQ t0, A) -0:FQ(1 , 

A)>0;QaTO  3060 
FK2990  J  =  NX(A):1F  J>31  THEN 

RETURN 
KJ  3000  Jl-FQ  (0,  A)  i  IF  JKl  T 

HEN  3060 
n»  3010  NX  (A)=NX  (A)  +1 
flO  3020  MAPfT, B)=J:MAP(T,B+1 

0) =A+l 
CA3030  ARMY(  J,  A»7> -Jl 
Nfl 3040  FOR  K-1  TO  3:ARMY(J, 

K+A«7)-0: NEXT  K 
BF  3050  ARMY  (J,4  +  A«7>-T:  ARMY 

<J,3+7»fl)-B 
EN3060  FOR  K-0  TO  19:Fa(K,A 

)»FQ(K+1, A) :NEXT    K 
00  3070     FQ(20,A)=0 
KL  3080     RETURN 
BP3100    A-0SFDR    M-1     TO    6:IF 

RND(1)<0.5     THEN    A-A+ 

1 
1113110  NEXT  M:B"6-A:  RETURN 
IB  3200  REM  WINDOW 
D6  3210  8RAPHICS  0SCLDSE  #4: 

OPEN  #4,  12,4,  "K:  "  :  Z  = 

7:PQSITIDN  16,4:PRIN 

T  "SCENARIO" : POKE  73 

2.  1 
FN3220  POSITION  9,8:PRINT  " 

1.  CAPTURE  CAPITAL/F 
AR" 

KF  3230  POSITION  9,  10:  PRINT 

"2.  CAPTURE  CAPITAL/ 

NEAR" 
»«  3240  POSITION  9,  12:  PR  INT 

"3.  OCCUPY  8/12  CITI 

ES" 
M 3250  POSITION  9,14:PRINT 

"4.  CONTROL  6/12  CIT 

lES" 
IIE3260  POSITION  9,16!PRINT 

"5.  OCCUPY  40/61  HEX 

ES" 
BF  3280  GET  #4, A:  IF  CHR«CA)< 

"1 "  OR  CHR»  (A)  >"S"  T 

HEN  3280 
JS  3290  ON-VAL  (CHR«(A)  }  tPOSI 

TIQN  7,6+BN«2t PRINT 

"  <:2  .  >  " 
KB  3300  RETURN 
BB  3400  A-0iaN  ON  QQSUB  3430 

, 3450 , 3480 , 3490,3580 
BE  3410  IF  A-0  THEN  RETURN 
SP3415  IF  AO0  THEN  T»-C»:0 

□-A: QOSUB  600:8OSUB 

1710:C«-T«: A-QD 
9D  3420  OOSUB  9401  POSITION  0 

,0»PRINT  "PLAYER  ";A 

t"     WINS": PR  I NT  C« 
HR3422  PRINT  "PRESS  ANY  KEY 

"iPDKE  764,255 
EI  3424  IF  PEEK  (764) -253  THE 

N  3424 
Kf  3426  POKE  C4,  13:  GOTO  32 
Ifl  3430  IF  MAP(CIT(2,0)  ,CIT( 

2.  n+ia)-l  THEN  A-2: 


C*-"BLUE  CAPTURED  TH 
E  CAPITAL": RETURN 

Kl  3440  GOTO  3460 

KL  3450  IF  MAP(CIT(3,0)  ,CIT( 
3, 1 ) +10) =1  THEN  A=2: 
C»="BLUE  CAPTURED  TH 
E  CAPITAL" :RETURN 

EB  3460  IF  MAP(CIT  (  1  ,  0)  ,  CIT( 
1 , 1) +10)=2  THEN  A-1 : 
C«="RED  CAPTURED  THE 
CAPITAL" 

1(0  3470  RETURN 

III  3480     L-GsQOTD     3500 

tP3490     L  =  6 

BH  3500    C(  1  ) -0:  C(2)-0 

I;B3510  FOR  J  =  l  TO  12:T  =  CIT( 
J, 0)  : B  =  CIT  (J,  1) 

HF  3S20  R-MAP(T,  B+10)  ;C(R)  =C 
(R)  +  l 

m3530  IF  GN-4  THEN  AN-=MAP( 
T, B) : IF  R>0  THEN  IF 
(AN-0)   OR   (ARMY(AN,6 
+(R-1 ) »7) >0)   THEN  C( 
R)-C(R)-1 

FF3540  NEXT  J 

Ef  3550  IF  C(l)>-L  THEN  A  =  2: 
C*-"BLUE  HAS  CAPTURE 
D  " 

PJ  3560  IF  C(2)>-L  THEN  A-1: 
C»-"RED  HAS  CAPTURED 

JF3565  IF  A  THEN  Z  =  LEN(STR* 
(C  i3-A)  )  )  ! C» (LEN (C») 
+1 , LEN(C») +Z) =STR* (C 
(3-A>  ) :C*(LEN  (C»)  +  l , 
LEN<C»)+7)-"  CITIES" 

CP  3570  RETURN 

BP  3S80  C(  1  )  =0:  C  (2)  =0 

PD  3590  FDR  J=0  TO  B:FOR  K  =  0 
TD  B 

HD  3600  R  =  MAP  (J,  K+10)  :  C(R)  =C 
(R)  +1 

»K3610  NEXT  K:NEXT  J 

IC3620  IF  C(l>>-40  THEN  A-2 
:C$«>"BLUE  OCCUPIES  " 

DB  3630  IF  C(2)>  =  40  THEN  A=  1 
SC»="RED  OCCUPIES  " 

EO  3635  IF  A  THEN  Z  =  LEN(STR» 
<C<3-A) ) ) : C* (LEN (C») 
+1 , LEN(C») +Z)=STR« (C 
(3-A) ) : C» (LEN(C*)+1 , 
LEN(C»)+6)="  HEXES" 

>;i(3640  RETURN 

I1I14010  CHBAS-PEEK  (  106) -B:  PO 
KE  106, CHBAS:GRAPHIC 
S  0: CHSET=CHBAS*256 

110  4020  POKE  752,  1:  POSITION 
14, 10:PRINT  "PLEASE 
WAIT":FOR  A-0  TO  102 
3:P0KE  CH3ET+A,PEEK( 
57344+A) :NEXT  A 

(114070  RESTORE  40B0:FDR  fl-C 
HSET+24  TO  CH3ET+119 
: READ  B:POKE  A.BsNEX 
T  A 

K4075  RESTORE  4090:  FOR  fl-C 
HSET+208  TO  CHSET+23 
9:READ  B:POKE  A,B/2: 
NEXT  A 

LJ  4077  RESTORE  4140:FDR  A-C 
HSET+240  TO  CH3ET+24 
7jReAD  B:POKE  A+8,B: 
POKE  A,Bt2!NEXT  A 

P6  407a  FOR  A-CHSET  +  24  TD  CH 
SET+71:P0KE  A,PEEK(A 
)/2!NEXT  A: FOR  A-CHS 
ET+208  TO  CHSET+239! 
POKE  A, PEEKtA) f2:NEX 
T  A 

I.F4079  FOR  A-CH3ET  +  72  TO  CH 
3ET+a7:PaKE  A,PEEK{A 
)»2:NEXT  A:RETURN 

BD  40B0  DATA  2,2,10,10,42,42 
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OD  4090 


NL  4100 


FO  6000 


fB  6  100 


f  L  6  1  1  0 


DATA 

,  li9 

45,  2 

64,  2 

,6,1 

6 

DATA 

129, 

129, 

129, 


165, 204, 133,207 
, 0, 133, 206, 168, I 
06, 136,208, 251, 1 
03, 162, 15, 189, 29 
45,206,200,202, 1 


Program  5.  Hex  War  For 
Apple  il 

Version  by  Tim  Victor,  Editorial 
Programmer 


47    10 
B7   20 


M   30 

511   40 


7B   50 


IF  60 
D2  70 
!7  B0 
F5  90 
F*    100 

n   110 

81    120 
E*    130 


iF    140 

DF  150 
£3  160 
E3  170 
F5  180 
F)  190 
CF   200 

sa  210 

23  220 


LOMEtIi  24576 

DIM  ARMY(31,6,  1>,BTL(64,1, 

3), MAP (9, 9, 2) ,FQ(20, 1 > , NX ( 

1),C(2> 

CN  =  12:  DIM  CITY(CN, 1) 

PN  =  1:ME  =  31: MM  =  3: Kfi  = 

1  /  48:KB  =  1  /  48: KC  =  1 

/  32 
FOR  J  =  1  TO  CN:  FDR  K  =  0 

Ta  It  F^EAD  CITY(J,K):  NEX 
T  K:MAP<CITY(J,0),CITY(J,1 
),2)  =  Is  NEXT  J 
GQSUB  1950 
G0SU8  B50 
BDSUB  2330 
POKE  6,0:  POKE  7,129 

IF  PEEK  (190  «  256)  =  76 

THEN  120 

POKE  54,0:  POKE  55,3:  CflL 

L  1002:  GOTO  130 

PRINT  CHR*  (4);"PR«ft768" 

A  =  FRE  <01 :  GOSUB  1110: 

BOSUB  220:  BOSUB  930 

GOSUB  340:  VTAB  21:  HTAB 


37:  PRINT  "  "; 
GOSUB  1250 
BDSUB  1540 
GOSUB  1250 
GDSUB  1290 
BDSUB  1750 
GOSUB  2040 

PN  =  1  -  PN:  BOTD  130 
HOME  :  HBR2  :  VTAB  3:  FOR 
J  =  1  TO  5:  HTAB  13 


PRINT  "V.i,       ";  :  NEXT  Ks  PR 

INT  "X!<" 
B(  230  HTAB  12  -  2  *  J:  FDR  K  = 

1  TO  J  +  4:  PRINT  "»  *"', 

:  NEXT  K:  PRINT  :  NEXT  J 
4E  240  FOR  J  =  1  TO  5:  HTAB  2  * 


J:  FOR  K  = 
RINT  "«<   X" 
NT 
32  250  HTAB  2  t  J 
TO  9  -  Js 


TO  10  -  J:  P 
:  NEXT  K:  PRI 


+  1:  FOR  K 
PRINT  "«♦ 


1 


PRINT  "#»" 


NEXT 


*  J I  FDR  K 


1  TO  J  +  3: 


78  260 


F!  270 


IF  280 
2E  290 


34  300 


28  310 


17  320 
99  330 


91  340 
54  350 
»   355 


NEXT 

J 
FOR  J  =  0  TO  BtHl  =  62  + 
14  «  (  tJ  -  8)  »  (J  >  4)  - 

J  t  (J  <  5)  )  :V1  =  27  +  1 
6  t  J 
H2  =  265  -  HI:  HCDLOR=  7: 

HPLOT  HI, VI  TD  HI, VI  +  9 
:  HPLOT  H2,V1  TO  H2,V1  + 
9 

NEXT  J 

Cl»  =  "0P"jC2«  =  "OR":  FO 
R  J  =  1  TO  12:  GOSUB  330: 

NEXT 
CI*  =  "ST":C2«  =  "UV":J  = 

1:  IF  BN  =  1  THEN  Q03UB 
330: J  =  2:01*  =  "WX":C2« 
=  "YZ":  BOSUB  330 
IF  GN  =  2  THEN  BOSUB  330: 
Cl»  =  "WX":C2»  =  "YZ":J  - 

3)  BOSUB  330 
F?ETURN 

K  =  CITY(J,0)!L  =  CITYCJ, 
DiX  =  (K  -  L)  «  2  +  19iY 

-  (12  -  (K  +  Ln  12  +  4 
!  VTAB  Yl  HTAB  Xi  PRINT  C 
1*1  HTAB  Xi  PRINT  C2»s  RE 
TURN 

HT  =  4:HB  =  4:  IF  NX(PN) 
<  2  THEN  RETURN 
MV  =  0:CT  =  0:CB  =  0:PK  = 

0 
VTAB  21!  HTAB  37:  PRINT  M 
ID»  ("<->?■', PN  «  2  +  1,2) 


SI  360  K  =  0:  FDR  J  =  1  TO  NX  (PN 

)  -  1:  IF  ARMY(J,0,PN)  > 
0  AND  ARMY (J, 6, PN)  <  1  TH 
EN  K  -  1;J  =  NX(PN)  -  1 

CI   370  NEXT  J:  IF  K  =  0  THEN  RET 
URN 

C7  3B0  HC  =  4  t  (MflP(HT,HB,  1)  < 
2) :  HCOLQR=  3  +  HC:  GOSUB 
820:  GET  A*:  HCOLOR=  HC: 


GOSUB  S20 


97  390 

19  400 

72  410 
19  420 
9C  430 

72  440 
23  450 

C4  460 

Ai  470 
SJ  4B0 
H   490 


BE  500 


IF  At 

TURN 

IF  At 

P 

IF  A* 

IF  PK 


CHRt  (135  THEN  RE 


CHR*  (3)  THEN  STO 


THEN  710 


1  THEN  460 
IF  MAP(HT,HB,1)  <  >  PN  + 
1  DR  MAP(HT,HB,0)  =  0  THE 
N  350 

AN  =  MAP(HT,HB,0):  IF  ARM 
Y(AN,6,PN)  <  >  0  THEN  350 
PRINT  CHR*  (7);:PK  =  1 : CT 
=  HT;CB  =  HB:CS  =  ARMY (A 
N,0,PN) :  GOTO  380 
IF  (HT  <  >  CT)  OR  HB  <  > 
CB  THEN  490 
IF  MV  >  0  THEN  690 
GOTO  350 

AS  =  ARMY(MAP(HT,HB,0) ,0, 
PN) :  IF  AS  >  ME  AND  CS  > 
ME  OR  MAP(HT,HB,1)  =  2  - 
PN  AND  AS  >  0  THEN  380 
DT  =»  ABS  (CT  -  HT):DB  =  A 
BS  (CB  -  HB):TL  =  DB  +  DT 
:  IF  TL  <  >  1  AND  (CT  +  C 
B  <  >  HT  +  HB  OR  DT  <  >  1 
)  THEN  380 


IE 

600 

91 

610 

El 

620 

2D 

630 

33  510  MG  =  MAP(HT,HB,0)  :  IF  MO 

=  0  THEN  560 
f*  520  FOR  J  =  0  TO  3:fiRMY(MB,J, 

PM>  =  ARMY(MG, J,PN>  +  ARM 

Y (AN, J, PN) : ARMY (ON, J, PN) 

=  0:  NEXT  J 
BD  530  ARMY(MB,6,PN>  =  1:MAP(CT, 

CB,0)  ■»  0 
EB  540  CS  =  ARMY(MG,0,PN)  :AN  =  M 

G:MV  =  MM  +  1 
21  550  GOTO  650 
43  560  N8  =  MAP(HT,HB,1)  -  1 :  MV 

=  MV  +  1:  IF  NS  <  >  PN  TH 

EN  MV  =  MV  +  1 
69  570  MAP(CT,CB,0)  =  0:MAP(HT,H 

B,0)  =  AN:MAP(HT,HB, 1)  = 

PN  +  1:ARMY(AN,4,PN)  =  HT 

:ARMY(AN,S,PN)  =  HB:  IF  M 

V  >  =  MM  THEN  ARMY (AN, 6, P 

N)  =  1 
fll  580  K  =  0:  FOR  J  =  -  1  TD  1  S 

TEP  2:J1  =  HT  +  JiJ2  =  HB 
+  J:J3  =  HB  -  J:  IF  Jl  < 
0  OR  Jl  >  a  THEN  600 
(13  590  IF  MAP(J1,HB,0)  >  0  AND  M 

AP(Jl,Ha,l)  "  2  -  PN  THEN 
K  -  1:J  =  1:  0DTO  640 

IF  JZ  <  0  OR  J2  >  e  THEN 

620 

IF  MAP(HT,J2,0)  >  0  AND  M 

AP(HT,J2,1)  =  2  -  PN  THEN 
K  =  1:J  =  1:  GOTO  640 

IF  J3  <  0  OR  J3  >  a  OR  Jl 

<  0  OR  Jl  >  a  THEN  640 

IF  MAP(J1,J3,0)  >  0  AND  M 

AP(J1,J3,1)  =  2  -  PN  THEN 

K  »  1:J  =  1 
4!  640  NEXT  J:  IF  K  =  1  THEN  ARM 
Y(AN,6,PN)  =  1:MV  =  MM  + 
1 

36  650  A  =  PN:J  =  CT:K  =  CB:C  = 

0:D  -  0:  GOSUB  1040 
il  660  J    =  HT:K  =  HB:C  =  CS:D  = 

ARMY(AN.6,PN):  BOSUB  1040 
C8  670  CT  =  HT:CB  =  HB 
Si  6B0  IF  MV  <  MM  THEN  380 
JE  690  ARMY  (AN,  6,  PN)  =  1:J  =  HT: 

K  =  HB:C  =  CS:D  =  Is  BOSU 

B  1040 
94  700  GOTO  350 
C7  710  IF  A*  =  ","  THEN  Bl  =  HB 

+  1:T1  =  HT 
t3  720  IF  At  =  CHR*  (21)  THEN  Bl 
=  HB  -  1:T1  =  HT 

37  730  IF  At  =  CHR*  (8)  THEN  Tl 

=  HT  -  1:B1  =  HB 
Di  740  IF  A*  =  ■'."  THEN  Tl  =  HT 

+  1:B1  =  HB 
17  750  IF  Tl  <  0  OR  Tl  >  8  OR  Bl 

<  0  OR  Bl  >  B  THEN  380 

IB  760  SI  =  Tl  +  Bl:  IF  SI  <  4  O 

R  SI  >  12  THEN  380 
14  770  HB  =  B1:HT  =  Tl:aN  =  MAP  ( 
HT,HB,0):  IF  QN  =  0  THEN 
3S0 
CI  780  131  =  MAP(HT,HB,1)  -  1 
D4  790  VTAB  1:  HTAB  1 :  A*  =  STR* 
(QN):  PRINT  SPC (  4  -  LEN 

(A»));A»:  PRINT  " " 

7A  800  FOR  J  =  0  TO  3:fl»  =  STR4 
(ARMY<QN,J,D1) ) :  PRINT  SP 
C(  4  -  LEN  (A*));A»:  NEXT 
J 
9i:  810  BOTD  380 

D2  820  HH  =  120  +  (HT  -  HB)  *  14 
:HV  =  219  -  (HT  +  HB!  *  1 
6 
82  S30  HPLOT  HH,HV  TO  HH  *  12,HV 
-  6  TD  HH  +  25, HV  +  1  TO 
HH  +  25, HV  +  9  TD  HH  +  1 
3,HV  +  15  TO  HH.HV  +  8  TO 
HH,HV 
21  840  RETURN 
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K  850  FDR  J  =  0    TD  1:NX(J)  =  5: 
FOR  K  =  1  TO  4:  READ  A,B 
,C 
eC  860  flRMY<K,0,J)  =  R:P|RMY(K,4, 
JJ  =  B:flRriY(K,5,J)  =  C:  Mfl 
P(B,C,0)  =  K:MftP(B,C,l)  = 
J  +  1 
J6  870  NEXT  K,J 
♦3  880  FOR  J  =  0  TD  J:  FOR  K  =  0 

TO  20 

53  890  A  =  INT  (  RND  (1)  *  K  *  3 

) :  FDR  L  =  I  TO  5:A  -  A  + 

INT  i    RND  (1)  «  21  -  8) : 

NEXT  L:  IF  A  <  16  THEN  A 

=  0:  QOTO  910 

n   900  A"=CA  +  KIB):A  =  2tI 

NT  (A  /  2) 
BD  910  FQ(K,J)  =  As  NEXT  K,J 
It  920  RETURN 
C!  930  FOR  J  =  0  TD  8;  FOR  K  =  0 

TO  8 
(12  940  A  =  MAP(J,K,1):  IF  (A)  TH 

EN  A  =  A  -  Is  GOBUB  1010 
33  950  NEXT  K,  J 

32  960  FOR  A  =  0TO  1:E=  13  +  A 
«  12:F  =  A  *  22  +  1:DX  = 
2  -  4  «  A:D  =  0 
2fl  970  FOR  J  =  0  TO  8:C  =  FQ(J,A 
> :  VTAB  F:  HTAB  E:  BDSUB 
1050 
DC  980  E  =  E  +  DX  «  2:  IF  J  >  3 
THEN  F=F+DX:E=E-D 
X 
SB  990  NEXT  J,  A 
Bl  1000  RETURN 
n    1010  B  3  MAP(J,K,0) 
12  1020  C  =  ARMYCB,0,A) 
D6  1030  D  *  ARMY  (B,  6,  A) 
!F  1040  BOSUB  1100 

H    1050  PRINT  MID*  ("<=*+", A  t  2 

+  1,2> 
6(  1060  HTAB  E:  PRINT  MID»  ("<)> 
?",A  «  2  +  1,2) ;:  IF  C  = 
0  THEN  1090 
47  1070  H«  =  "":X  =  C:  FOR  L  =  0 
TO  1:T  =  X:X  =  INT  (X  / 
16) :T  =  T  -  16  t  X:H«  = 
CHR*  (T  +  48  +  7  »  (T  > 
9))  +  H»:  NEXT 
25  1080  VTAB  F  +  1  -  A:  HTAB  E: 
PRINT  H»;:  IF  D  THEN  VTA 
B  F  +  ft!  HTAB  E:  PRINT  M 
ID*  <",-./ ".A  t  2  +  1,2) 

83  1090  NORMAL  :  RETURN 

6B  1100  E  =  (J  -  K  +  10)  *  2  -  1 

:F  =  (13  -  J  -  K)  «  2  + 

2:  HTAB  E:  VTAB  Ft  RETUR 

N 
CI  1110  SW  =  0:E  =  NX<PN>  -  1:  I 

F  E  <  1  THEN  RETURN 
11  1120  FOR  J=1TDE-1:  IF  A 

RMY(J,0,PN)  >  =  0  THEN  1 

170 
OB  1130  T  =  ARMYCJ,4,PN)  :B  =  ARM 

Y(J,5,PN):  IF  MAP<T,B,0) 

=  J  THEN  MAP(T,B,0)  =  0 

1£  1140  FOR  K  =  J  TO  E:  FOR  L  = 

0  TO  6iflRMYCK,L,PN)  =  AR 

MYCK  +  1,L,PN) : ARMY(K  + 

1,L,PN)    =    0:MEXTL 
B9    1150    T   =    ARMY(K,4,PN)  :B    =    ARM 

Y<K,5,PN) :MAP(T,B,0)    »    K 

:  NEXT  K 
SB  1160  NX(PN)  =  NXCPN)  -  1:J  = 

E:3H  «  1 
la  1170  NEXT  J:  IF  SW  THEN  1110 
6i  1180  FOR  J  =  1  TO  e:ARMY(J,0, 

PN)  =  ARMY(J,0,PN)  +  ARM 

Y(J,2,PN) 
B3  1190  ARMY  (J,  2,  PN)  =  ARMY  (J,  3, 

PN) iARMY(J,3,PN)  =  0 
61    1200  ARMY  (J,  6,  PN)  =  0 


£0  1210  NEXT  J:K  =  NX  ( 1  -  PN)  :  F 
OR  J  =  1  TD  K: ARMY (J, 6, t 

-  PN)  =  0:  NEXT 
47  1220  GGSUB  1400 

12  1230  IF  BP  >  0  THEN  FDR  J  =  0 

TD  1:  FDR  K  =  1  TD  BP:A 

-  BTLfK, J,0) :ARMY(A,6, J 
)  =  ARMY (A, 6, J)  +  1:  NEX 
T  K,J 

E5  1240  RETURN 

S3  1250  GOSUB  1400 

13  1260  A  =  NX(0):  IF  <NX(1)  >  A 

)  THEN  A  =  NX(1) 
SB  1270  FDR  J  =  0  TO  1:  FOR  K  = 
1  TD  A:ARMY{K,6,J)  =  0: 
NEXT  K,J 
Al  1280  6DSUB  1230:  RETURN 
34  1290  FOR  J  =0TO  1:A=  1  -J 

:B  -  NXtJ)  -  1 
fli  1300  FOR  K  =  1  TO  B 
ID  1310  IF  ARMY(K,0,J)  >  =  1  THE 

N  1360 
':<  1320  FQ(2,A)  =  FQ<2,A)  +  ARMY 
<K,2,J)  +  ARMY(K,3,J):  I 
F  FG(2,A)  >  255  THEN  C  = 
Fa(2,A)  -  255:FQ(3,A)  = 
FQ(3,A)  +  C:Fa(2,A)  =  2 
55 
2E  1330  FD(6,A)  =  FD{6,ft)  +  ARMY 
(K, 1, J) :  IF  FD(6,A)  >  25 
5  THEN  C  =  FQ(6,A)  -  255 
:FQ(7,A)  =  FQ(7,A)  +  C:F 
Q(6,fl)  =  255 
n    1340  T  =  ARMY(K,4,J) :B  =  ARMY 
(K,5, J) :  IF  MAP(T,B,0)  = 
K  AND  MAP(T,B, 1)  =  J  + 
1  THEN  MAP(T,B,0)  =  0 
EC  1350  FOR  L  =  0  TO  6:ARf1Y(K,L, 

J)  =  0:  NEXT  L 
ED  1360  IF  ARMY(K,6,J)  >  -  1  THE 

N  1390 
BB  1370  F0(4,J)  =  FD(4,J)  +  ARMY 

(K, 1, J) ! ARMY(K, !, J)  =    0 
44  13B0  IF  Fa(4,J)  >  255  THEN  C 
=  FQ(4,J)  -  255:F0(5,J) 
=  FQ(5,J)  +  C:F0(4,J)  = 
255 
69  1390  NEXT  K,J:  RETURN 

71  1400  BP  =  0 

3D  1410  FDR  J  -  0  TO  8:J1  =  (4  - 
J)  «  (4  -  J  >  0) ;J2  =  8 
-  (J  >  4)  «  (J  -  4) 
IB  1420  FOR  K  =  Jl  TD  J2:A  =  MAP 

(J,K,0) :R  =  MAP(J,K, 1) 
BE  1430  IF  CA  =  0)  OR  (R  =  0)  TH 

EN  14B0 
flS  1440  IF  ARMY(A,0,R  -  1)  <  1  T 

HEN  1480 
Dl  1450  T  =  J  +  1:B  =  K:  BOSUB  1 

490 
IB  1460  B  =  B  -  1:  GOSUB  1490 
CI  1470  T  =  T  -  1:  GOSUB  1490 
66  1480  NEXT  K,J:  RETURN 
31  1490  IF  T  <  0  OR  B  <  0  OR  T  > 

8  OR  B  >  8  THEN  RETURN 
4B  1500  PA  s  MAP(T,B,0):  IF  PA  = 

0  THEN  RETURN 
IE  1510  IF  MAP(T,B,1)  =  R  THEN  R 

ETURN 
DE  1520  IF  ARMY  <PA,  0,2  -  R)  <  1 

THEN  RETURN 
«  1530  BP  =  BP  +  1:BTL(BP,R  -  I 

,0)  =  A:BTL!BP,2  -  R,0) 

=  PA:  RETURN 
CC  1540  IF  BP  =  0  THEN  RETURN 
33  1550  FDR  J  =  1  TO  BP 
6D  1560  FDR  K  =  0TD1:A=1-K 
31  1570  AN  =  BTL(J,K,0) 
7D  15B0  AS  =  ARMY(AN,0,K) :HT  =  A 

RMY(AN,6,K):CT  =  INT  (AS 
/  HT)  +  1 

72  1590  BTL(J,A,1)  =  INT  (CT  *  K 

A  +  1) 


El  1600  BTL(J,A,2)  =  INT  (CT  »  K 

B  +  1) 
75  1610  BTLCJ,A,3)  =  INT  (CT  «  K 

C  +  1) 
14  1620  NEXT  K,J 
62  1630  FOR  J  =  1  TO  BP:  J0  =  BTL 

(J,0,0):  Jl  =  BTL(J,  1,0) 
B3  1640  60SUB  1930 
IE  1650  flRMY{J0,0,0)  =  ARMY(J0,0 

,0)  -At  BTL(J,0, 1) 
6F  1660  ARMY  (J  1,0,1)  =  ARMY  (J  1,0 

,1)  ~  B  t  BTL (J, 1,1) 
BF  1670  GOSUB  1930 

»1  1680  C  =  A  t  BTL(J,0,2)  :ARMY( 
J0,0,0)  =  ARMY(J0,0,0)  - 
C: ARMY (J0, 1,0)  =  ARMY (J 
0,  1,0)  +  C 
F2  1690  C  =  B  «  BTL  (J,  1,2)  :  ARMY  ( 
J1,0, 1)  =  ARMY{J1,0, 1)  - 
CsARMY(Jl, 1, 1)  =  ARMY (J 
1,1,1)  +  C 
75  1700  GOSUB  1930 

S?  1710  C  =  A  «  BTL(J,0,3>:ARMY( 
J0,0,0)  =  ARMY(J0,0,0)  - 
C:ARMY(J0,3,0)  =  ARMY(J 
0,3,0)  +  C 
FS  1720  C  =  B  *  BTL  (J,  1,3)  :  ARMY  ( 
J1,0,  1)  =  ARMY  (J  1,0,1)  - 
C: ARMY (J  1,3, I)  =  ARMY (J 
1,3,  1)  +  C 
84  1730  NEXT  J 
£f  1740  RETURN 
F5  1750  A  =  1  -  PN:B  =  0 
C9  1760  FOR  J  =  0  TO  B:  FOR  K  = 

0  TD  8 
M  1770  IF  MAP(J,K,1)  =  PN  +  1  T 

HEN  B  =  B  +  1 
21  1780  NEXT  K,J 

75  1790  FQ(1,PN)  =  FQ(1,PN   i-  B: 
IF  FQC1,PN)  >  255  THEN 
B  =  FQd.PN)  -  255:FQC2, 
PN)  =  FD(2,PN)  +  B:Fa(l, 
PN)  =  255 
B4  1800  T  =  4:B  =  PN  «  8 
27  1810  IF  MAP(T,B,0)  <  >  0  THEN 

RETURN 
IC  1820  IF  MAP(T,B,1)  =  PN  +  1  T 
HEN  FQ(0,A)  =  0:Fa(l,A) 
=  0:  RETURN 
EC  1830  J  =  NX(A):  IF  J  >  31  THE 

N  RETURN 
DE  1840  Jl  =  FO(0,A):  IF  Jl  <  1 

THEN  1900 
4E  1850  NX  (A)  =  NXCA)  +  1 
ID  1860  MAP(T,B,0)  =  J:MAPCT,B,1 

)  =  A  +  1 
4F  1870  ARMY{J,0,A)  =  Jl 
Bi  1880  FOR  K  =  1  TO  3:ARMY(J,K, 

A)  =  0:  NEXT  K 
B4  1890  ARMY  (J,  4,  A)  =  T:  ARMY  < J,  5 

,A)  =  B 
42  1900  FOR  K  =  0  TO  19:FQ(K,A) 

=  FQtK  +  1,A):  NEXT  K 
B    1910  Fa(20,A)  =  0 
EB  1920  RETURN 

FC  1930  A  =  0:  FOR  M  =  1  TO  6:  I 
F  RND  (1)  <  -S  THEN  ft  = 
A  +  1 
56  1940  NEXT  M:B  =  6  -  A:  RETURN 
83  1930  HOME  :  TEXT  :  VTAB  6:  HT 
AB  10!  PRINT  "1>  CAPTURE 
CAPITAL/FAR" 
as  I960  HTAB  10:  PRINT  "2>  CAPTU 

RE  CAPITAL /NEAR" 
73  1970  HTAB  10:  PRINT  ■'3>  OCCUR 

Y  B/12  CITIES" 

71  1980  HTAB  10:  PRINT  "4>  CONTR 

DL  6/12  CITIES" 
BI  1990  HTAB  10:  PRINT  "S>  OCCUR 

Y  40/61  HEXES" 

79  2000  VTAB  12:  HTftB  10:  PRINT 
"PRESS  KEY  TO  SELECT  GAM 
E" 
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H   201IS  GET  A«:  IF  A*  <  "0"  OR  A 

«  >  "5"  THEN  2010 
4B  2020  BN  =  VAL  (At):  VTAB  5  + 

BN:  HTAB  9:  PRINT  ">>"; 
8ft  2030  VTAB  12:  HTAB  4:  PRINT  " 

PREPARING  SAME-  ONE  MOME 

NT  PLEfiSE":  RETURN 
CJ  2040  EA  =  0!  ON  QN  GOSUB  2110 

, 2130, 2160, 2170, 2260 
fl  2050  IF  EA  =  0  THEN  RETURN 
Bl  2060  GOSUB  220:  GOSUB  930 
75  2070  TEXT  :  HOHE 
B5  20B0  HTAB  13:  PRINT  "PLAYER  " 

EA"  WINS" 
K   2090  HTAB  20  -  (  LEN  (EN*)  - 

.5)  /  2:  PRINT  EN* 
BS  2100  HTAB  12:  PRINT  "(PRESS  A 

NY  KEY)":  CALL  B56:  BET 

A* 5  RUN 
M  2110  IF  I1AP(CITYC2,0),CITY(2, 

1) , 1)  =  1  THEN  EA  =  2: EN 

«  -  "BLUE  CAPTURED  THE  C 

APITAL":  RETURN 
68  2120  SOTO  2140 
31  2130  IF  MAP(CITY(3,0) ,CITY(3, 

1),1)  =  1  THEN  EA  =  2: EN 

«  =  "BLUE  CAPTURED  THE  C 

APITAL":  RETURN 
CF  2140  IF  riAP(ClTY(l,0)  ,CITY(1, 

1 ) , 1 )  -  2  THEN  EA  "  1 : EN 

«  =■  "VIOLET  CAPTURED  THE 
CAPITAL" 
ES  2150  RETURN 
«7  2160  L  =  8:  BDTO  2180 
K   2170  L    =    h 

H   2100  C(l)  =  0:C(2)  =  0 
91  2190  FOR  J  =  1  TO  12:T  =  CITY 

(J,0)  SB  =  CITY(J,  1) 
EC  2200  R  =  MAP(T,B,1):C(R)  =  C{ 

R)  +  1 

78  2210  IF  GN  =  4  THEN  AN  =  MAPI 

T,B,0>!  IF  R  >  0  THEN  IF 
AN  =  0  OR  ARMY (AN, 6, R  - 
1)  >  0  THEN  C(R)  »  C(R> 
-  1 

79  2220  NEXT  J 

2B  2230  IF  C(l)  =  >  L  THEN  EA  = 

2!  EN*  =■  "BLUE  HAS  CAPTUR 

ED  ■■  +  STR»  (CCl)  )  +  "  C 

ITIES":  RETURN 
11   2240  IF  C(2)  =  >  L  THEN  EA  = 

1:EN*  =  "VIOLET  HAS  CAPT 

URED  "  +  STR»  (C(2) >  +  " 
CITIES" 
ES  2250  RETURN 
K  2260  C(l)  =  0:C(2>  =  0 
Ci  2270  FDR  J  =  0  TO  0:  FDR  K  = 

0  TO  a 
75  22B0  R  =  MAP(J,K,  1)  :C(R)  =  C< 

R)  +  1 
IB  2290  NEXT  K,  J 

«  2300  IF  Cd)  =  >  40  THEN  EA  = 
2: EN*  =  "BLUE  OCCUPIES 

"  +  STR*  tC(l) )  +  "  HEXE 

S":  RETURN 
51  2310  IF  C(2)  =  >  40  THEN  EA  = 
1:EN»  =-  "VIOLET  DCCUPIE 

S  "  +  STR*  (C(2>)  +  "  HE 

XES" 
El  2320  RETURN 
Ce  2330  IF  PEEK  (768)  =  216  THEN 

RETURN 
IF  2340  READ  AD:  IF  AD  =  -  1  THE 

N  RETURN 
iD  2350  READ  DT:  IF  DT  =  -  1  THE 

N  2340 
3F  2360  POKE  AD,DT:ftD  =  AD  +  1 : 

GOTO  2350 
2C  2370  DATA  8,4,0,4,8,0,0,3,4,0 

,4,0 
«3  2380  DATA  5,5,3,3,6,3,2,5,5,2 

,3.6 
DD  2390  DATA  64,2,8,64,3,7,64,5, 


6,64,6,6 
iA  2400  DATA  64,2,2,64,3,2,64,5, 

1,64,6,0 
CI  2410  DATA  33024 
51  2420  DATA  0,0,0,0,0,0,0,0 
47  2430  DATA  -1,33048 
3f  2440  DATA  131,140,176,192,192 

, 192,192,192 
9C  2450  DATA  224,152,134,129,129 

, 129, 129, 129 
19  2460  DATA  192,192,192,192,192 

, 176, 140, 131 
C2  2470  DATA  129,129,129,129,129 

,134, 152,224 
5C  2430  DATA  -1,330BB 
BE  2490  DATA  42,42,0,0,0,0,0,0 
17  2500  DATA  85,05,0,0,0,0,0,0 
15  2510  DATA  0,0,0,0,0,0,170,170 
Id  2520  DATA  0,0,0,0,0,0,213,213 

83  2530  DATA  120,128,213,221,255 

,255,221,213 
(12540  DATA  128,128,170,174,191 

, 191, 174, 170 
3E  2550  DATA  85,93,127,127,93,05 

,0,0 
49  2560  DATA  42,46,63,63,46,42,0 

.0 

CC  2570  DATA  128,188,230,246,230 
,230, 188, 128 

84  2S00  DATA  128,152,156,152,152 

,132, IBB, 128 
Fl  2590  DATA  128,188,230,176,140 

,230,254, 128 
F(  2600  DATA  128,108,230,176,224 

,230, 188, 128 
F9  2610  DATA  128,176,104,180,254 

, 176, 176, 128 
75  2620  DATA  128,254,134,190,224 

,230, 180, 128 
fit  2630  DATA  128,188,134,190,230 

,230, ISB, 128 
Kl   2640  DATA  128,254,224,176,152 

, 140, 140, 128 

17  2650  DATA  128,100,230,188,230 

,230, 188, 120 
EB  2660  DATA  128,180,230,230,252 

, 176,152,128 
9B  2670  DATA  -1,33248 
33  2680  DATA  192,192,208,208,212 

,212,213,213 
Dl  2690  DATA  128,128,130,130,138 

,138, 170,170 
F3  2700  DATA  85,85,84,84,80,80,6 

4,64 
C9  2710  DATA  42,42,10,10,2,2,0,0 
Bfl  2720  DATA  -1,33288 

18  2730  DATA  120,252,230,230,254 

,230,230,128 
17  2740  DATA  128,190,230,230,190 

,230,254,128 
EB  2750  DATA  128,188,230,134,134 

,230, 190, 128 
IB  2760  DATA  128,190,230,230,230 

,230, 190, 128 
M  2770  DATA  128,254,134,134,190 

, 134,254,128 
A3  2780  DATA  128,254,134,134,190 

, 134, 134, 128 
E«  2790  DATA  -1,33400 
E5  2800  DATA  128,128,128,128,224 

,224,224,252 
51  2810  DATA  128,128,128,128,129 

, 129,129,143 
IC   2820    DATA   252,224,224,224,128 

, 12B, 128,128 
84   2830    DATA    143,129,129,129,128 

,128,120, 128 
C5   2840   DATA    128,128,144,144,144 

, 149,149,128 
fl(   2850    DATA    128,128,130,130,130 

, 170,170,128 
112860  DATA  128,149,149,144,144 

, 144,128,128 


[3  2870  DATA  128,170,170,130,130 

, 130, 128, 128 
(E  2880  DATA  0,0,16,16,16,21,21, 

0 
M  2890  DATA  0,0,2,2,2,42,42,0 
SB  2900  DATA  0,21,21,16,16,16,0, 

0 
14  2910  DATA  0,42,42,2,2,2,0,0 
6D  2920  DATA  -1,33528 
99  2930  DATA  0,0,0,0,127,0,0,0 
ID  2940  DATA  -1,768 
IB  2950  DATA  216,120,133,69,134, 

70, 132,71 
7D  2960  DATA  166,7,10,10,176,4,1 

6,62 
t4  2970  DATA  48,4,16,1,232,232,1 

0,  134 
21  2980    DATA    27,24,101,6,133,26, 

144,2 
Ifl   2990    DATA    230,27,165,40,133,8 

, 165,41 
D7   3000    DATA   41,3,5,230,133,9,16 

2,8 
4*3010    DATA    160,0,177,26,36,50, 

48,2 
59   3020    DATA   73,127,164,36,145,8 

,230,26 
87   3030    DATA    200,2,230,27,165,9, 

24,105 
52   3040    DATA   4,133,9,202,208,226 

, 165,69 
5ft  3050    DATA    166,70,164,71,88,76 

,240,253 
19   3060    DATA    169,120,133,254,169 

,64,133,255 
M   3070    DATA    169,15,160,7,145,25 

4, 136, 16 
59   3000    DATA   251,44,85,192,44,80 

,192, 169 
IB  3090   DATA    15,205,176,192,208, 

25 1 ,  44 ,  84 
5C  3100    DATA    192,44,81,192,160,2 

51, 162,72 
38  3110    DATA    232,208,253,200,208 

,250,44,0 
Dl   3120    DATA    192,16,222,96 
52   3130    DATA    -1,-1 


Program  6.  Hex  War  For  IBM 
PC/PCjr 

Version  by  Patrick  Parrish, 

Programming  Supervisor 

HK  0  KEY  OFF:WIDTH  40:DEF  SEG=0: 
POKE  1047, PEEK (1047)  OR  64: 
SCREEN  1: COLOR  0,1:CLS:LOCA 
TE  12, 15,0: PRINT  "PLEASE  WA 
IT":(30TD  20 

SS  2  DEF  SEG=0:POKE  1050,  PEEK  (10 
52) 

FP  3  QV=0:A*=RIGHTt(INKEY«,  1):  IF 
LEN(A*)=0  THEN  3 

IP  4  IF  A«=CHR«(77>  THEN  aV=3:G0 
TO  8 

KK  5  IF  A*=CHR*(7S)  THEN  QV  =  7:G0 

TO  a 

AC  6  IF  A*=CHR«(72)  THEN  aV=l:GD 

TO  e 

OF  7  IF  A*=CHR*(80)  THEN  QV=5 
HP  0  J=DV-12B«(A«="  "):RETURN 
CF  20  GOSUB  3710 
CI  40  DIM  ARMY(31,6,  1)  ,BTL(64,  1, 

3) ,MAP(9,9,2),FQ(20,1),NX( 

1)  ,C<2) 
ES  50  CN=12:DIM  CIT(CN,  1) 
HP  60  RANDOMIZE  (TIMER) 
EJ  70  PN=1;ME=31 
JC  80  MM=3:REM  MAX  MOVES 
FF  90  KA=l/48:KB=l/48:KCsl/32 
K6  260  RESTORE  270:  FOR  J  =  l  TO  CN 
tFQR  K=0  TO  IsREAD  CIT(J, 
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K>lNeXT   K:MAP(CIT(J,0) ,CI 
T(J,1),2>=1:NEXT    J 
OC  270    DflTfi    8,4,0,4,3,0,0,8,4,0, 

4,8 
ON   2S0    DATA    5,5,3,3,6,3,2,5,5,2, 

3,6 
LK  300  60SUB  600:GDSUB  3200:  GQSU 

B  600 
JH  310  LOCATE  24,17:PRINT  "HEX  W 

AR"; 
81  330  LOCATE  1,11:  PRINT  "PLEASE 

WAIT  A  MOMENT" 
BO  340  GOSUB  1500 
IH  410  REM  CLEAR  KEYBD 
CH  420  GOSUB  1900; GOSUB  600:GDSU 

B  1710: REM  FIND  BATTLES 
OD  430  IF  PN=1  THEN  PUT  (280,  160 
),S5,PSET  ELSE  PUT  (280,1 
60>,S6,PSET 
fO  431  GOSUB  800:  LOCATE  2 1,36:  PR 

INT"   ":REM  KEYBD 
CL  440  COLOR  14:  GOSUB  2100:  REM  B 

ATTLES  AGAIN 
NL  450  COLOR  1 :  SOSUB  2600:  REM  RE 

SOLVE 
HI  460  COLOR  1:  GOSUB  2100:  REM  PO 

ST-BATTLE 
66  470  COLOR  2: GOSUB  2200: REM  SP 

LIT  PRISONERS 
Efl  480  GOSUB  2900: REM  REINFDRCEM 

ENTS 
En  490  COLOR  6:  GOSUB  3400 
OK  500  PN=l=PNsFT=0:PP=0 
06  510  GOTO  420 
PF  600  CLS:  COLOR  0 
KJ  610  FOR  R-11  TO  1  STEP  -2:  FOR 
C-12-R  TO  R+26  STEP  4:PU 
T  (C»8,R«8),310:NEXT  C,R 
FH  620  FOR  R=13  TO  21  STEP  2:  FDR 
C-R-10  TO  49-R  STEP  4:  PU 
T  (C«B,R*8) ,S10:NEXT  C,R 
SK  630  FOR  R=12  TO  1  STEP  -2:  FDR 
C-14-R  TO  R+2B  STEP  R+28 
-(14-R)-1: LOCATE  R,C:PRIN 
T  "  "SNEXT  C,R 
01  640  FOR  R=13  TO  21  STEP  2:  FDR 
C-R-11  TO  53-R  STEP  S3-R 
-<R-11)-1: LOCATE  R,C:PRIN 

T  NEXT  C,R 

!H  650  FOR  1=2  TO  23  STEP  21:LaC 
ATE  I, 12,0: PRINT  " 
"sNEXT 
iO  670  FOR  J=l  TO  12:BDSUB  7I0:N 

EXT 
flP  680  J=1:IF  SN=1  THEN  GOSUB  71 

8:J=2!G0SUB  715 
AH  690  IF  BN=2  THEN  GOSUB  718:  J  = 

3: GOSUB  715 
06  700  LOCATE  1,1:  RETURN 
H6  710  K=CIT(J,0) :L=CIT(J, 1)  :X=< 
K-L)«2+19: Y=(12-(K+L) )«2+ 
3:PUT  (X«e+3,Y»8+3) ,S2,PS 
ET: RETURN 
KJ  715  K=CIT(J,0):L=CIT<J, 1>:X=( 
X-L)»2+19:Y=(12~(K+L) ) «2+ 
3:PUT  (X«a,Y»8) ,S3,PSET:R 
ETURN 
PK  71B  K=.CIT<J,0)  ;L=CIT(J,  I)  :X=( 
K-L) «2+19: Y=  C12- (K+L) ) »2+ 
3:PUT  <X«a,Y«B),34,PSET;R 
ETURN 
J  J  800  IF  NXtPN)<2  THEN  RETURN 
LP  805  HT=4:HB=4: GOSUB  1000 
0!  810  MV=0:CT=0:CB=0:PK=0:K=0 
IB  820  FDR  J  =  l  TO  NXfPN)-l:rF  AR 
MY<J,0,PN)>0  AND  ARMY(J,6 
,PN)<1  THEN  K=1:J=NXCPN)- 
1 
JO  830  NEXT  JsIF  K=0  THEN  RETURN 
CD  840  IF  A«=CHR»<27)  THEN  At="" 

: RETURN 
«H  850  GOSUB  2:  IF  J=0  THEN  840  E 
LSE  IF  (J  AND  12B)  THEN  1 


100  ELSE  IF  (J  AND  1) =0  T 
HEN  840 
BL  860  J=(J-1)/2:IF  J  AND  1  THEN 
Bl"HB+J-2sTl=HT  ELSE  Tl= 
HT+1-J:B1=HB 
PP  870  IF  TK0  OR  Tl>a  THEN  840 
EB  880  IF  BK0  OR  B1>B  THEN  840 
FE  890  S1=-T1+B1:IF  Sl<4  OR  Sl>12 

THEN  840 
SA  895  HB=Bl:HT=Tl:eDSUB  1000 
DB  B96  LOCATE  1 ,  1 :  FOR  Z  =  l  TO  6:  P 

RINT"  "iNEXT 

EJ  900  QN=MflP(HT,HB,0)  :  IF  QN=0  T 
HEN  LOCATE  1,1: GOTO  840  E 
LSE  ai-MAP(HT,HB,  n-1 
GJ  910  LOCATE  1,1:  PRINT  USING  "« 

###";QN:  PRINT" " 

CK   920  FOR  J=0  TO  3:  PRINT  USING 

"####■';  ARMY(QN,  J, Ql)  :NEXT 
01  930  LOCATE  1,1:  GOTO  840 
NL  1000  SX=150+16t(HT-HB):SY=214 

-16«CHT+HB) 
CC  1005  IF  MAP(HT,HB,2)=1  THEN  P 
UT  (OX,OY) ,SB:PUT  (SX,SY 
) , S7: OX=SXs  DY=SY: PP=1 : RE 
TURN 
(F  1007  IF  PP    THEN  PUT  (DX,OY),S 
7: PUT  <SX,SY),SB:0X-3X:0 
Y-3YSPP-0: RETURN 
OJ  1010  IF  FT  THEN  PUT  (aX,OY>,S 
SsPUT  <SX,SY) ,SB:aX»8X:0 
Y-SYi RETURN 
NJ  1015  PUT  (SX,SY)  ,S8:0X=SX:□Y-= 
SY:FT=1 
IE  1030  RETURN 
JF  1100  IF  PK-1  THEN  1200 
BA  1120  IF  MAP(HT,HB,  DOPN+l  OR 
MAPCHT,HB,0)=0  THEN  810 
KB  1130  AN»MAP(HT,HB,0>:IF  ARMY  ( 

AN,6,PN)<>0  THEN  810 
PJ  1140  PK=1:CT=HT:CB=HB:CS=ARMY 

(AN,0,PN) 
MO  1150  SOUND  2200,10 
FH  1160  GOTO  840 
n    1200  J=(HT-CT)  AND  (HB-CB) 
ED  1210  IF  J  AND  MV=0  THEN  810 
m   1220  IF  J  AND  MV>0  THEN  1420 
m  1230  AB=ARMY{MAP(HT,HB,0) ,0,P 
N)!lF  (AS>ME  AND  CS>ME) 
OR  (MAP(HT,HB, 1)-1-1-PN 
AND  AS>0)  THEN  840 
OE  1240  DT=ABS(CT-HT) :DB=ABS(CB- 
HB)  :TL-DB+DT:  IF  NOT  (TL= 
1  OR  (CT+CB-HT+HB  AND  DT 
=1)1  THEN  840 
CF  1250  MS=MAP(HT,HB,0):IF  MG=0 

THEN  1300 
CL  1260  FOR  J=0  TO  3:  ARMY  (MB,  J  ,  P 
N> -ARMY  <MQ , J , PN) +ARMY (AN 
, J , PN) ; ARMY ( AN, J , PN) »0: N 
EXT  J 
SN  1270  ARMY(MG,6,PN)=1:MAP(CT,C 

B,0)-0 
IN  1280  CS-ARMY(MG,0,PN>:AN=MG:M 

V-MM+1 
SB   1290    GOTO    1380 

JF    1 300   N8-MAP (HT,HB,1)-1:MV=MV+ 

1:1F  N80PN  THEN  MV-MV+1 

IL  1310  MAP(CT,CB,0)=0 

IB  1320  MAP(HT,HB,0)=AN:MAP(HT,H 

B, 1)«PN+1: ARMY(AN,4,PN)= 

HT:ARMY(AN,5,PN)-HB! IF  M 

V>-MM  THEN  ARMY (AN, 6, PN) 

-1 

CJ  1330  K-0:FOR  J=-l  TO  I  STEP  2 

; Jl-HT+J ! J2-HB+J : J3-HB-J 

;IF  J1<0  OR  Jl>8  THEN  13 

40  ELSE  IF  MAP(J1,HB,0)> 

0   THEN  IF  MAP(J1,HB, 1)=2 

-PN  THEN  K=1:J-1:G0TD  13 

60 

04  1340  IF  J2<0  OR  J2>a  THEN  135 

e   ELSE  IF  MAP(HT,J2,0)>0 


THEN  IF  MflP(HT,  J2,  n=2- 

PN  THEN  K=1:J»I:GDT0  136 
0 

fS  1350  IF  J3<0  OR  J3>B  OR  J1<0 
DR  J1>B  THEN  1360  ELSE  I 
F  MAP(J1,J3,0) >0  THEN  IF 

MAP(J1,J3, l)-2-PN  THEN 
K=l: J-1 
KC  1360  NEXT  J 
m    1370  IF  K=l  THEN  ARMY (AN, 6, PN 

)=1;MV=KM+1 
DL  1330  A=PN:J=CT:K=CB:C=0{D=0:B 

OSUB  1830 
BF  1390  J=HT:K=HB:C=CS:D=ARMY(AN 

,6,PN) : GOSUB  1830 
HJ  1400  CT=HT:CB=HB 
LH  1410  IF  MV<MM  THEN  840 
PJ  1420  ARMY(AN,6,PN)=1:  J=HT:K=H 

B:C-CS:D=1: GOSUB  1830 
DA  1430  GOTO  810 

BI  1500  RESTORE  1540:FOR  J=0  TO 
l:NXtJ)=5:F0R  K=l  TO  4:R 
EAD  A,B,C 
OA  1510  ARMY(K,0,J)=A:ARMY(K,4,J 
) -Bs  ARMY (K, 5, J) =C; MAP (B, 
C,0)-K!MAP(B,C, 1)=J+1 
EH  1520  NEXT  K,J 
OK  1530  REM  STRENGTH,  T-POS,  B-P 

OS 
EL  1540  DATA  64,2,8,64,3,7,64,5, 

6, 64,6,6: REM  BLUE 
HO  1550  DATA  64,2,2,64,3,2,64,5, 

1,64, 6,0: REM  VIOLET 
E6  1600  REM  SET  RANDOM  REINFORCE 

MENTS 
AH  1610  FDR  J=0  TO  1 s FDR  K=0  TO 

20 
PH  1620  A=INT(RND(l)tK»3):F0R  L= 
1  TO  5:A=A+INT(RND(1)«21 
-8) s NEXT  L:IF  A<16  THEN 
A-0  ELSE  A=(A+Kt8>  AND  2 
34 
DJ  1630  FG!(f<,J>=A:NEXT  K,J 
JO  1640  RETURN 
FF  1700  REM  ARMIES->MAP 
BE  1710  FOR  J"0  TO  8: FOR  K=0  TO 

8 
AH  1720  A"MAP(J,K,1):IF  A  THEN  A 

-A-ls SOSUB  1800 
FO  1730  NEXT  K,J 
LI  1740  FDR  A=0  TO  1 :  E"13+A»12:  F 

-A»22: DX-2-4»A! D-0 
*A  1750  FOR  J=0  TO  8: C=Fa  CJ,  A) : B 

OSUB  1840 
Oil  1760  E=E+DX«2:IF  J>3  THEN  F=F 

+DX:E»E-DX 
OK  1770  NEXT  J,  A 
a    17B0  RETURN 
HH  1800  B=MAP(J,K,0) 
PF  1810  C=ARMY(B,0,  A) 
61  1820  D=»=ARMY(B,6,  A) 
OF  1830  E=(J-K+10)»2-1:F=(13-J-K 

)»2+l;REM  T&B  TO  X/Y 

MB  1840  IF  A  THEN  PUT  (E»8,  F*8), 

S3, PSET; LOCATE  F+A+1,E+1 

: PRINT  "   ";  ELSE  PUT  <E 

«8, (F+l ) «a) , S6, PSET: LOCA 

TE  F+A+1,E+1: PRINT  "   "; 

£6  1B50  IF  C=0  THEN  RETURN 

LD  1870  LOCATE  F+A+1 ,E+1: PRINT  R 

ISHT* ( "0"+HEX« (C ) , 2) ; 
SP  1880  IF  D  AND  A=0  THEN  LOCATE 
F+2,E+1:PRINT  "   ";sPUT 
(E«S+1, (F+l)«a+l>,Sll  E 
LSE  IF  D  AND  A=l  THEN  LO 
CATE  F+l, E+1: PRINT  "   "; 
:PUT  (E*8+1,F»8+1),S9 
KB  1890  RETURN 
HJ  1900  SW=0:E=NX(PN)-1:IF  E<  1  T 

HEN  RETURN 
JB  1910  FOR  J-l  TO  E-1:IF  ARMY  (J 

,0,PN)>-1  THEN  1970 
K    1930  FOR  K-J  TO  E:FOR  L=0  TO 
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A: ARMY  <K, L, PN) -ARMY (K+1 , 
L,PN)iARMY(K+l,L,PN)-0:N 
EXT  L 
Ce  1940  T=ARMY(K,4,PN):B=ARMY{K, 

5,PN)iMAPCT,B,0>-K 
IS  1950  NEXT  K 

IE  I960  NX(PN)=NX{PN>-l:J=EiSW=l 
BL  1970  NEXT  J:  IF  SW  THEN  1900 
BP  2000  FOR  J-1  TO  E:ARMY(J,0,PN 
) -ARMY ( J , a, PN) +ARMY ( J , 2, 
PN) 
t!!  2010  ARMY(J,2,PN)=ARMY(J,3,PN 

) ;ARMY(J,3,PN)=0 
Pfl  2020  ARHY(J,6,PN)-0 
BF  2030  NEXT  Js  K-NX  C 1-PN)  5  FOR  J  = 
1  TO  KtARMY(J,6,l-PN)-0: 
NEXT 
F6  2040  GOSUa  2400 
tL  2050  IF  BP>0  THEN  FOR  J=0  TO 
Is  FOR  K«l  TO  BPiA=BTL(K, 
J,0)iARMY(fi,6,J!=ARMY(A, 
6,J)+1:NEXT  K,J 
JO  2060  RETURN 
FD  2100  G05UB  2400 
8L  2110  A=NX(0):IF  NX  ( 1)  >A  THEN 

A-NX ( 1 ) 
EN  2120  FOR  J=0  TO  1:F0R  K=l  TO 

A:ARMY(K,6,J)-=0:NEXT  K,J 
6H  2130  SOSUB  20S0 
JK  2140  RETURN 
CO  2200  FOR  J'^B   TO  1 :  A=l-J:  B«NX  ( 

J)-l 
a   2210  FOR  K=l  TO  h 
06  2220  IF  ARMY(K,0,J).>=1  THEN  2 

280 
fH  2230  FQ(2,A)=FQ<2,A)+ARt1YtK,2 
,J)+ARMY(K,3, J): IF  Fa(2, 
A>>255  THEN  C=FQ (2, ft! -25 
3:  FQ ( 3 , A) =FQ (3, A) +C: FQ (2 
,A)-255 
EP  2240  FQ(6,A)=FQ(6,A)+ARMY(K,1 
,J)SIF  Fa(6,A)>255  THEN 
C-FQ (6, A) -255: FQ (7, A) =FQ 
(7,A)+C:FQ(6,A)=255 
SB  2250  IF  MAP  (ARMY  (K,  4,  J),  ARMY  ( 
K,5,J),0)-K  AND  MAP (ARMY 
(K,4,J),ARMY(K,5,J) ,1)=J 
+1.THFN  MAP (ARMY (K, 4, J), 
ARMY(K,5,J) ,0)=0 
HE  2260  FOR  L=0  TO  6:  ARMY  tK.L,  J) 

=0:NEXT  L 
KP  2280  IF  ARMY(K,6,J)>=1  THEN  2 
320s  REM  EVACUATE  INJURED 
PI  2290  FGt4,J>=FQ(4,  J)+ARMY(K,1 

, J) sARMYtK, 1, J)=0 
BO  2300  IF  FQ(4,J)>25S  THEN  C=FQ 
(4, J)-255:FQCS,J)=Fa(S,J 
)+C:FQ(4, J>=255 
FK  2320  NEXT  K,Js RETURN 
00  2400  BP=0 

m  2410  FOR  J=0  TO  S:Jl=(J-4)t(4 
-J>0): J2=a-(J>4)«(4-J) :F 
OR  K-=J1  TO  J2 
6f  2420  A=MAP(J,K,0) 
00  2430  R=MAP(J,K,  1) 
JC  2440  IF  A=0  OR  R=0  THEN  2490 
JN  2450  IF  ARMY(A,0,R-1)<1  THEN 

2490 
A6  2460  T=J+l5B=K!Q0SUB  2500 
CC  2470  B=B-1:60SUB  2500 
CS  24B0  Ti=T-l:GOSUB  2500 
SB  2490  NEXT  K,Js  RETURN 
OR  2500  IF  T<0  OR  B<0  OR  T>8  OR 

B>B  THEN  RETURN 
«  2310  PA=MAP(T,B,0) : IF  PA=0  TH 

EN  RETURN 
CN  2520  IF  MAP(T,B,  1)=R  THEN  RET 

URN 
CO  2530  IF  ARMY(PA,0,2-R)<1  THEN 

RETURN 
a   2540  BP=BP+1:BTL(BP,R-1,0)=A: 
BTL(BP,2-R,0)«PAs  RETURN 
«H  2600  IF  BP=0  THEN  RETURN 


m  2610  FOR  J=l  TO  BP 

ED  2620  FOR  K=0  TO  1:A=1-K 

E6  2630  AN=BTL(J,K,0) 

BH  2640  AS=ARMYtAN,0,K):HT=ARMYC 
AN, 6, K> : CT-INT ( A3/HT) +1 

M  2650  BTL(J,A, 1)=INT(CT«KA+1) 

Pft  2660  BTL(J,A,2)=INT<CTIKB+1) 

a   2670  BTL(J,A,3)=INT(CT«KC+1) 

en  26B0  NEXT  K,J 

!l  2700  FOR  J-1  TO  BP:  J0=BTL<J,0 
,0) :J1-BTL(J,1,0) 

EA  2710  BDSUB  3100 

BC  2720  ARMY  tJ0,0,0)=ARMY(J0,  0,0 
)-A«BTL(J,0,l) 

KP  2730  flRMY«Jl,0,  l)=ARMYtJl,0,l 
)-B«8TLtJ,  1,1) 

FJ  2740  G03UB  3100 

CI  2750  C=AtBTL(J,0,2>:ARMY(J0,0 
,0) -ARMY ( J0, 0, 0} -C: ARMY  C 
J0, 1 , 0) -ARMY ( J0, 1 , 0) +C 

IIP  2760  C=B*BTL(J,  1,2)  :ARMY(J1,0 
, 1 ) -ARMY ( J 1 , 0, 1 ) -Ci ARMY ( 
Jl, 1, 1 ) -ARMY (Jl, 1,1 >+C 

FC  2770  OOSUB  3100 

DB  2780  C-A»BTL(J,0,3):ARMY(J0,0 
,0) -ARMY  C J0, 0, 0> -C; ARMY { 
J0, 3, a> -ARMY ( J0, 3, 0) +C 

01  2790  C=B«BTL(J,  1,3):  ARMY (J1,0 
, 1 ) -ARMY ( J 1 , 0. 1 ) -C:  ARMY ( 
Jl,3, 1)=ARMY(J1,3, 1)+C 

HL  2B00  NEJ(T  J 

JP  2B10  RETURN 

JE  2900  As'l-PN:B=0 

HJ  2910  FOR  J=0  TO  8:  FOR  K-0  TD 

a 

0*2920  IF  MAP(J,K,1)=PN+1  THEN 

B-B+1 
FD  2930  NEXT  K,J 
HD  2950  FQ(l,PN)=FQtl,PN)+B 
CH  2955  IF  FQ(1,PN)>255  THEN  B^F 

Q ( 1 ,  PN) -233: FQ (2, PN) -FO  t 

2, PN) +B: FQ ( 1 , PN) -255 
HS  2960  T-4:B-PN«B 
IIP  2970  IF  MAP(T,B,0)<>0  THEN  RE 

TURN 
HH  2980  IF  MAP(T,B,1)-PN+1  THEN 

FQ (0, A) -0s  FQ  1 1 , A) -0: QOTO 
3060 
K   2990  J=NX(A):IF  J>31  THEN  RET 

URN 
BF  3000  J1-FQ(0,A):IF  JKl  THEN 

3060 
IS  3010  NX(A)-NX(A)+1 
EP  3020  MAP(T,B,0)=J;MAP(T,B,  D- 

A+1 
nC  3030  ARMYCJ,0,A]=J1 
E6  3040  FDR  K=l  TO  3:  ARMY  <  J,  K,  A) 

-0SNEXT  K 
HN  3050  ARMY  (J,  4,  A)  =T:  ARMY  (J,  5,  A 

)=B 
PF  3060  FDR  K=0  TO  19:  FQ  (K,  A)  =FQ 

(K+1,A):NEXT  K 
I«  3070  FQ(20,A)=0 
JF  3080  RETURN 
IC  3100  A=0:FOR  M-l  TO  6:  IF  RND  ( 

IX.  5  THEN  A=A+1 
KD  3110  NEXT  M:B  =  6-A:  RETURN 
PO  3200  REM  WINDOW 
FH  3210  LOCATE  8,  7:  PRINT  STRING* 

(9,19)"  SCENARIO  "STRING 

» (9, 19) : LOCATE  9,7:G0SUB 
3310 
PB  3220  LOCATE  10,  7s  PRINT  CHR«  ( 1 

9)"  1>  CAPTURE  CAPITAL/F 

AR    "CHR»{19) 
PK  3230  LOCATE  11,  7:  PRINT  CHR*  C 1 

9) "  2>  CAPTURE  CAPITAL/N 

EAR   "CHR»(19) 
m   3240  LOCATE  12, 7: PRINT  CHR» ( 1 

9)"  3>  OCCUPY    8/12  CIT 

lES   "CHR* (19) 
f«  3250  LOCATE  13, 7:  PRINT  CHR«  ( 1 

9)"  4>  CONTROL   6/12  CIT 


lES   "CHR* (19) 
LF  3260  LOCATE  14,  7:  PRINT  CHR*  <  1 
9) "  5>  OCCUPY   40/61  HEX 
EB    " CHR* ( I 9 ) : LOCATE  15 
,7s805UB  3310 
10  3270  LOCATE  16, 7:  PRINT  STRINQ 

*(2a,19) 
DI  3280  A*=INKEY»:1F  A«=""  THEN 
3280  ELSE  QN-VAL(A*):IF 
BN<1  OR  BN>5  THEN  3280 
iK  3290  LOCATE  9+GN,9:PRINT  CHR* 
(16)iF0R  TD-1  TO  1000sNE 
XT 
U!  330a  RETURN 
HO  3310  PRINT  CHR»(19>SPC<26)CHR 

•(19): RETURN 
lA  3400  A=0:ON  GN  BOSUB  3430,345 

0,3480,3490,3580 
EK  3410  IF  A=0  THEN  RETURN  ELSE 
EN«-C*:EA-A:BaSUB  600:80 
SUB  1710:ft=EA 
HL  3420  LOCATE  1,1: PRINT  "PLAYER 
"A"WINS 

"SPRINT  EN*: PRINT  "(PRE 
SS  ANY  KEY)  " 
CL  3425  A«-INiCEY»s  IF  A«=""  THEN 

3425  ELSE  RUN 
EH  3430  IF  MAP  (CIT  (2,0),  CIT  (2,1) 
,1)-1  THEN  A-2sC*""BLUE 
CAPTURED  THE  CAPITAL  "sR 
ETURN 
U   3440  GOTO  3460 

!I  3450  IF  MAP  (CIT  (3,  0)  ,  CIT  (3,1) 
,1)-1  THEN  A-2sC»-"BLUE 
CAPTURED  THE  CAPITAL  ";R 
ETURN 
PF  3460  IF  MAP(CIT(1,0),CIT<1,1) 
,l)-2  THEN  A-1:C*-"VI0LE 
T  CAPTURED  THE  CAPITAL  " 
Kr  3470  RETURN 
ITL  3480  L=-B:QOTO  3500 
H  3490  L-A 

OH  3500  C(l)»0:C(2)-0 
m   3510  FOR  J=l  TO  12:T»C1T(J,«) 

lB-CIT{J,l) 
01  3520  R=MAP(T,B, 1):C(R>-C(R)+1 
KB  3530  IF  GN-4  THEN  AN»MAP(T,B, 
0> I  IF  R>0  THEN  IF  AN-0  0 
R  AR«Y(AN,6,R-1)>0  THEN 
C(R)-C(R)-l 
HC  3540  NEXT  J 

HE  3350  IF  C{1)=>L  THEN  A-2:C»-" 
BLUE  HAS  CAPTURED "+STR»( 
C(l))+"  CITIES  ": RETURN 
NO  3560  IF  C(2)=>L  THEN  A-lsC*-" 
VIOLET  HAS  CAPTURED "+STR 
«(C(2) )+"  CITIES  " 
JR  3570  RETURN 
PE  3580  C(1)=0:C(2)»0 
IK  3S90  FOR  J-0  TO  8s  FOR  K-0  TO 

a 

OK  3600  R-MAP(J,K,  l)sC(R)-C(R)+l 

FI  3610  NEXT  K,J 

KH  3620  IF  C(l)->40  THEN  A-2!C»- 

"BLUE  OCCUPIES"+STR« (C ( 1 

))+"  HEXES" I  RETURN 
Cfl  3630  IF  C(2)->40  THEN  A-llC«- 

" VIOLET  OCCUR ieS"+9TR«(C 

(2)}+"  HEXE9" 
JF  3640  RETURN 
EE  3700  REM  DEFINE  SHAPES 
3P  3710  DEFINT  S 
II  3720  RESTORE  3840:  READ  X,Y:E- 

(4+INT ( (X+7) /B) (Y) /2s  DIM 
Sia<E>tS10{0)-X:B10{l)- 

YsFOR  1-2  TO  EtREAD  310 ( 

I ) I  NEXT 
PJ  3730  READ  X,  YsE- (4+INT  ( <X+7)  / 

B)«Y)/2sDIM  S2(E):S2(0)= 

X:S2(n=Y:F0R-I=2  TO  E;  R 

EAD  S2(I) :NEXT 
NE  3740  READ  X,  Y:  E=  (4+INT  (( X+7)  / 

a)*Y)/2:DIM  S3(E):S3{0)= 
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X:S3tl)-Y!FaR  1=2  TO  E: R 

EftD  S3 (I) :NEXT 
KP  37S0  READ  X,  Y:  E=  (4+INT  <  (  X+7)  / 

8)»Y)/2:D1M  S4(E):S4(0)= 

X:S4(1)=Y:F0R  1=2  TO  E:R 

EAD  S4 ( I > : NEXT 
LK  37i0  READ  X,  Y:  E=  (4+INT  ((  X+7)  / 

a)«Y)/2:DIM  S5<E):SS(0J= 

X:S5(1)=Y:F0R  1=2  TO  E:R 

EAD  S3(I):NEXT 
JF  3770  READ  X ,  Y:  E=  t4+INT  (  (X+7)  / 

B>*Y)/2:DIM  36(E):S6(a)= 

X:S6(l)-Y:FOR  1=2  TO  E:R 

EAD   Si(I)jNEXT 
Ifl   37B0    READ    X, Y: E= (4+INT (( X+7) / 

B)«Y)/2:DIM   S7(E):S7(0)= 

Xl37(l)-Y:FDR    I»2    TO    E:R 

EAD  97<I):NEXT 
«L  3790  READ  X,  Y:E=  (4+INT  (  (X  +  7)  / 

B)*Y}/2:DIM  58(E}:S8(0)- 

Xl3B(l)"Y:F0R  1=2  TO  E:R 

EAD  39(1) rNEXT 
EK  3800  READ  X,  Yj  E=  (4+INT  (  (X+7)  / 

0)iY)/ZiDIM  S'?(E):39<0)  = 

Xi39(l)-Y:F0R  1-2  TO  ErR 

EAD  S9(I) iNEXT 
Dft  3B10  READ  X, Y:E= (4+INT ( (X+7) / 

B}*Y)/2:DIM  311(E):S11(0 

)-X:311(l)«Y;FDR  1-2  TO 

EiREAD   St  1(1): NEXT 
ii  3820    RETURN 
HK  3830   REM    HEX    SHAPE    S10 
CH  3840   DATA   8.H20,  &H10,  !<HFC,  &H3F 

00,  SiHFC,  8(H3F00,  &HFF03,  JcH 

C0FF 
BE   3850    DATA   «<HFF00 ,  iHFF ,  &HF00 ,  fc 

HF0,  &HF00,  S<HF0,  &HF00,  JiHF 

0 
BF   3860    DATA   &HF00,&HF0, 5<HF00,&H 

F0,  «iHF00,  ScHFB,  8tHF00,  «cHF0 
F6  3B70    DATA    «<HF00,  «,HF0,  &HFF00,  i 

HFF,  8(HFF03,  &HC0FF,  fcHFC,  S< 

H3F00 
EB  3B80   DATA    liHFC,  &H3F00,  8.H0 
AD  3890   REH   CITY    SHAPE    S2 

PL  3900    DATA    !<H  1 4  ,  «cHA  ,  ScHA A0 A ,  «(H2 

A00,  &H80AA,  t<HA0,  SiHA0A0,  & 

HA000 
D)  3910    DATA   IcH A0 ,  &HA0A0 ,  S(HA000 , 

&HA0,  &HA0A0,  &HA000,  tiHAA2 

A,i(HA80 
CK  3920   DATA   !.HAA,«<H0 
HC   3930   REM    CAP.  PUR    SHAPE    S3 
IK   3940   DATA    iH20,  tiH10,  &HAA00,  teH 

AA,  &HAA00,  &HAA,  StHAA00,  bH 

AA 
DI   3950    DATA   S.HAA00 ,  iHA  A ,  !<HA  A  AA , 

&HAAAA,  iiHAAAA,  &HAAAA,  ScHA 

AAA,&HAAAA 
BP  3960   DATA    &HA  AA  A ,  SiH  AAAA ,  8<HA  AA 

A,  SiHAAAA,  &HAAAA,  &HAAAA,  & 

HAAAA.iHAAAA 
■M  J970L  DATA   &H£AAA,&HAAAA,«tHAfi0 

0,  t(HAA,  S<HAA00,  S(HAA,  SiHAA0 

0,tiHAA 
OK  3980    DATA    &H  A  A00 ,  S<H  A  A ,  8iH0 
IC  3990   REM    CAP.BLU   SHAPE   34 
KA  4000    DATA    S<H20,  S<H10,  !cH5500,  iH 

SS,  &H5500,  tiHSS,  &HSS00,  «(H 

S3 
SL  4010   DATA   &H5500,S<HS5,&HS555, 

&H5535,  8rH5S55,  &HS5SS,  !<H5 

553,«<H5355 
HC   4020   DATA    8<H3535,S<H5555,  S.H355 

5 ,  fcHS555 ,8cH5335,&H5555,!< 

H5335,«<H5555 
SI   4030    DATA    8iH5555,&H5555,&H550 

0,  &HS3,  &H5500,  8cH55,  «(H550 

0,S<H55 
JS   4040    DATA   8iH5500,&H55,!<H0 
OH   4050    REM    TOP.  PUR    SHAPE    S5 
tN   40i0    DATA    t<H20,8<HB,t<H200,8<Ha0 

,  S(HA00,  &HA0, 1(H2A00,  icHAS 


CH  4070   DATA   f(HAA00, 8iHAA,!<HAA02, 

aiHa0AA,  &HAA0A,  t<HA0AA,  &HA 

A2A,i<HA8AA 
6C  4080   DATA   SiH0 ,  t<H0 ,  iiH0 
OH  4090   REM    TOP.BLU    SHAPE   SA 
FF   4100   DATA    l<H20,S<HS,  !cH5515,  !cH5 

433,  S[HSS03,  S(H305S,  &H3501 

, &H4053 
DE   4110    DATA   &H3500,  &H5S,  &H1S00, 

&H54 ,  t(H300 ,  SiH50,  SiH  1 00 ,  t,H 

40 
FC  4120    DATA   !(H0,  8(H0,  &H0 
K  4130   REM   CURSOR. PUR    SHAPE   S7 
K  4140   DATA    !<H29,  J(H14,  SiH2A00,  &H 

ABA  A,  iiH0,  l(HAA2A,  &HAB,  tiH0 
CK  4150    DATA    &H0 ,  &H0 ,  !,H0 ,  VH0 ,  &HA 

0,&H0,8cHA00A,i<H0 
KJ  4160   DATA   !cHA00,  &HA0,  !tH0,  t<HA0 

0A,&H0,tiHA00,ScHA0,S!H0 
01.41 70   DATA    !iHA00A,&H0,«!HA00,!iH 

A0,  S(H0,  &HA00A,  8iH0,  &HA00 
NB  41B0   DATA    8iHA0,giH0,  8.HA00A,  S.H0 

,  S<HA00,  i<HA0,  &H0,  &HA00A 
EK  4190    DATA    &iH0  ,  &H A00 ,  !cH0  ,  I<H0 ,  i 

H0,t(H0,8cH0,ttK2A00 
HD  4200  DATA   8<HABAA,&H0,&HAfl2A,& 

HA8,i(H0 
n  4210   REM    CURSOR. BLU    SHAPE    SS 
Pit  4220   DATA    >tH2a,&H14,  «cH1300,  &H 

5433 ,  lcH0 ,  &H33 1 5 ,  &H34 ,  lcH0 
BJ   4230   DATA    S(H0,  iH0,8(H0,(,H0,«<H5 

0,SiH0,t.H500S,tiH0 
It   4240   DATA    8<H300,!,H50,SiH0,8iH30 

03,  tiH0,  tiHS00,  8(K50,  tiH0 
IIP   4250    DATA   «iH500S ,  8<H0 ,  S(H500 ,  iH 

30 ,  «cH0 ,  !<H3005 ,  S<H0 ,  iHSae 
flJ   4260    DATA    «iHS0,  J,H0,  8<H5005,  SiH0 

,  IcH500 ,  «iHS0 ,  &H0 ,  S(H3005 
IB  4270   DATA    SiH0,  !tH500,  !(H0,  8tH0,  & 

H0,  t!H0,  S(H0,  &H1300 
Kf  4280   DATA   S<H54a3,  &H0,«tH5515,  i 

HS4,S(H0 
If  4290  REM   PLUS.PURP   SHAPE    39 
KE   4300    DATA    S.H  1 C ,  S(H6 ,  8rHA  ,  !<HA ,  8.H 

A,  liHA,  i(HA0AA,  SiHA0AA 
W  4310  DATft   l(Hfl0ftft,«iHflaftfl,&HA,gc 

HA,<(HA,&HA,t<H500 
F8  4320   REM   PLUS.  BLU   SHAPE   SU 
FJ  4330   DATA    &H1C,  JiHi,  !<HS,StH3,&H 

3,  JiHS,  8cH3055,  S(H3055 
n  4340   DATA   StH5055,  tiHa055,  8cH5,S< 

KS,ttHS,liHS,SiH500 


Program  7.  Hex  War  For 
Amiga 

Version  by  Philip  Nelson,  Assistant 
Editor 

'  Hex  War  for  512K  Amiga-* 

CLEAR  ,2  5000* 
CLEAR  ,63536Si-* 

Restart:* 

GOSUB  Setup* 

* 

raainloop:* 

GOSUB  Reveille* 

GOSUB  DrawField* 

GOSUB  PlaceTroops* 

GOSUB  TakeTurn* 

CLS:talk$="Thinking"* 

LOCATE  12,17:PRINT  talk$* 

GOSUB  talk* 

GOSUB  Battle* 

GOSUB  Resolve* 

GOSUB  Battle* 

GOSUB  Prisoners* 

GOSUB  Reinforcements* 

GOSUB  Outcome* 

■pn: ft=0:pp=0* 


pn=l- 


GOTO  niaiinloop* 

* 

DrawField:* 

CLS* 

FOR  r=ll  TO  1  STEP  -2* 

FOR  c=12-r  TO  r+26  STEP  4* 

PUT  (c*8,r*8),sl0* 

NEXT  c,r* 

FOR  r=13  TO  21  STEP  2* 

FOR  c=r-10  TO  49-r  STEP  4* 

PUT  (c*B,r*8) ,3l0* 

NEXT  c,r* 

FOR  r=12  TO  1  STEP  -2* 

FOR  c=14-r  TO  r+2e  STEP  r+28-(14 

-r)-l* 

LOCATE  r,c* 

PRINT  CHR?(32)* 

NEXT  c,r* 

FOR  r=13  TO  21  STEP  2* 

FOR  c=r-ll  TO  53-r  STEP  53-r-{r- 

1I)-1* 

LOCATE  r,c* 

PRINT  CHRS(32)* 

NEXT  c , r* 

FOR  j=2  TO  23  STEP  21* 

LOCATE  3,12* 

PRINT  SPACES (19)* 

NEXT* 

FOR  j=l  TO  12* 

GOSUB  710* 

NEXT* 

j  =  l* 

IF  gn=l  THEN  GOSUB  718 : j=2 :GOSUB 

715* 

IF  gn=2  THEN  GOSUB  713 : j=3 :GOSUB 

715* 

LOCATE    1,1* 

WHILE    INKEYSo""  jWEND* 

RETURN* 

710   k=cit( j,0)* 

l=cit( j,l)* 

x=(k-l)*2+19* 

y=(12-(k+l) )*2+3* 

PUT    (x*8+3,y*8+3) ,s2,PSET* 

RETURN* 

715   k=cit(j,0)* 

l=cit( j,l)* 

x=(k-l)*2+19* 

y=(12-(k+l))*2+3* 

PUT    (x*8,y*8) , s3,PSET* 

RETURN* 

718    k=cit{ j,0)* 

l=cit( j, 1)* 

x-{k-l)*2+19* 

y={12-(k+l) )*2+3* 

PUT    (x*8,y*8),34,PSET* 

RETURN* 

* 

TaXeTurn:* 

IF    nx(pn)<2    THEN    RETURN* 

ht=4:hb=4:GOSUB    1000* 

810    mv-0:ct=0* 

Cb=0:pk=0:k=0* 

FOR   j=l    TO   nx(pn)-l* 

IF   ariny(  j,0,pn)  >0    AND   arroy{j,6,p 

n)<l    THEN* 

k=l* 

j=nx(pn)-l* 

END    IF* 

NEXT    j* 

IF  k=0  THEN  RETURN* 

Checkit:* 

IF  aS=CHR?(27)  THEN  a?-"": RETURN 

4 

ReadMouse;* 

IF  MOUSE(0)<>2  THEN  NoFlag* 

'  left  button  clicked  twice* 

WINDOW  4, "Speech", {65, 70)-( 225 , 1 

10), 16,1* 

IF  TalkFlag=l  THEN* 

talk$="Now  I  can  talk."* 

PRINT  talk?* 

TalkFlag=l-TalkFlag* 

GOSUB  talk* 

GOTO  ClearMouae* 
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END  IF-< 

IF  TalkFlag=0  THEN* 

talXS'""OK,  I'll  be  quiet."-* 

PRINT  talkS-« 

GOSOB  talk* 

TalkFlag^l-TalkFlag* 

END  IF+ 

ClearMouse :* 

WHILE  MOUSE(0)  <>0:WEND-* 

PRINT  "Press  button  once"* 

PRINT  "to  continue..."* 

■  wait  for  one  click* 

WHILE  MOUSE(0)<>l!WEND* 

'  purge  keyboard,  too* 

WHILE  INKEY$<>"" :WEND* 

WINDOW  CLOSE  4* 

NoFlag:* 

qv=0:a?=INKEYS:IF  a5=""  THEN  Rea 

dMouse* 

IF  UCASE?(aS)="'Q"  THEN* 

GetOuti* 

WINDOW  CLOSE  3* 

SCREEN  CLOSE  1* 

WINDOW  l,"Hex  War",, 31,-1* 

WINDOW  OUTPUT  1* 

CLEAR  ,25000* 

END* 

END  IF* 

IF  a?=CHRS(30)  THEN  qv=3:G0T0  Co 

deit* 

IF  aS=CHR?(31)  THEN  qv=.7!GOT0  Co 

deit* 

IF  a$»CHR5(28>  THEN  qv=l:G0T0  Co 

deit* 

IF  a5=CHRS(29)  THEN  qv=5* 

Codeit:* 

j=qv-128*(a5="  ")* 

IF  i-S   THEN  Checkit* 

IF  (j  AND  128)  THEN  1100* 

IF  (j  AND  1)=0  THEN  Checkit* 

j=(j-l)/2* 

IF  j  AND  1  THEN  bl=hb+ j-2 i tl=ht 

ELSE  tl=ht  +  l- j  :bl=iib* 

IF  tl<0  OH  tl>B  THEN  Checkit* 

IF  bl<a  OR  bl>8  THEN  Checkit* 

3l=tl+bl!lF  sl<4  OR  sl>l2  THEN  C 

heckit* 

hb=bl:ht=tl:GOSUB  1000* 

LOCATE  1,1* 

FOR  z=l  TO  6* 

PRINT  SPACE? (8)* 

NEXT* 

qn=map{ht ,hb,  0)* 

IF  qn=0  THEN  LOCATE  l,liGOT0  Che 

ckit  ELSE  ql=map{ht,hb, 1)-1* 

LOCATE  1,1* 

PRINT  USING  '■t###";qn:PRINT" 

—  "^ 

FOR  j=a  TO  3* 

PRINT  USING  "##*#";army(qn, j,ql) 

■« 

NEXT* 

LOCATE  1,1* 

GOTO  Checkit* 

■i 

1000    sx=146+16*(ht-hb)* 

sy=210-16*(ht+hb)* 

IF   raap(ht,hb,2)=l    THEN* 

PUT    (ox,oy) , s8* 

PUT    (sx, sy ) ,a7* 

ox=sx:oy=sy* 

pp=l* 

RETURN* 

END    IF* 

IF    pp   THEN* 

PUT    (ox, oy) , a7* 

PUT    (sx,sy),9a* 

ox=sx:oy=sy* 

pp=0* 

RETURN* 

END    IF* 

IF    ft    THEN* 

PUT    (ox,oy),s8* 

PUT    (sx,sy),sa* 

ox=sx :Oy=3y* 


RETURN* 

END    IF* 

PUT    (sx,9y),a8* 

ox=sx :oy=3y : £t=l* 

RETURN* 

■* 

1100    IF    pk=l    THEN    1209* 

IF   raap{ht,hb, l)<>pn+l    OR  raap(ht, 

hb,0)=0   THEN   810* 

an=map ( ht , hb , 0 ) * 

IF   armyCan,6,pn)<>0   THES   810* 

pk= 1 : ct=ht : cb=hb* 

cs=array(an,0,pn}:SOUND  1100,10* 

talk?=STRS ( cs ) +CHRS ( 32 ) +" roahboh 

tS."!GOSUB  talk* 

GOTO  Checkit* 

* 

1200    j=(ht=ct)    AND    (hb=cb)* 

IF    j    AND   inv=0    THEN    813* 

IF  j  AND  mv>0  THEN  1420* 

ax=a!rray(map(ht,hb,  0)  ,0,pn)* 

IF    (ax>rae   AND   cs>ine)    OR    (raap(ht, 

hb,l)-l=l-pn   AND   ax>0)    THEN   Chec 

kit* 

dt=ABS(ct-ht)* 

db=ABS(cb-hb)* 

tl=db+dt* 

IF    NOT    Ctl=l    OR    (ct+cb=ht+hb   AND 

dt=l))    THEN    Checkit* 

rag=map ( ht , hb , 0 ) * 

IF  rag=0  THEN  1300* 

FOR    j=0    TO    3* 

arinyCmg,  j  ,pn)=army  (mg,  j  ,pn)+array 

(an, j,pn)* 

army (an, j,pn)=0* 

NEXT* 

ar  tny  t  mg ,  6 ,  pn )  ■  1  * 
map(ct,cb,0)=0* 
cs=ariny  (mg,  0,  pn)* 
an— mg :  mv=mm'f  1  * 
GOTO  1380* 
-< 

1300  n8=map(ht,hb, 1 )-l* 

rav=mv+l* 

IF  nSopn  THEN  mv=mv+l* 

map( ct , cb, 0)=0* 

map(ht,hb,0)=an* 

map(ht,hb,  D^pn+l* 

army  ( an ,  4 ,  pn )  ="ht* 

array (an, 5 ,pn)=hb* 

IF  rav>=mra  THEN  army(an, 6, pn)=l* 

k=0* 

FOR  j=-l  TO  1  STEP  2* 

jl=ht+ j : j2-hb+ j : j3=hb- j* 

IF  jl<0  OR  jl>a  THEN  1340* 

IF  raap(  jl,hb,0)>-0  THEN* 

IF  inap(  jl,hb,l)  =  2-pn  THEN* 

k-l:j=l:GOTO  1360* 

END  IF* 

END  IF* 

1340  IF  j2<0  OR  J2>S  THEN  1350+ 

IF  map(ht, j2,0)>0  THEN* 

IF  map(ht, j2,l)=2-pn  THEN* 

k=l:i=l:GOTO  1360* 

END  IF* 

END  IF* 

1350  IP  j3<0  OR  j3>8  OR  jl<0  OR 

jl>8  THEN  1360* 

IF  map(  jl,  j3,0)>0  THEN* 

IF  map( jl, j3,l)=2-pn  THEN  k=l:j= 

1* 

END  IP* 

1360  NEXT  j* 

IF  k=l  THEN  army(an, 6 ,pn)=l :mv"ra 

m+1* 

1380  aBpn:j=ct* 

k=cb:c=0;d=0* 

GOSUB  1330* 

j=ht : k=hb* 

c=c3 :d=army ( an,6, pn)* 

GOSUB  1830* 

ct=ht:cb=hb*   ■ 

IF  rav<mni  THEN  Checkit* 

1420  army(an, 6, pn)=l* 

j=ht:k=hb* 


c=cs !d=l* 

GOSUB  1830* 

GOTO  B10* 

■* 

* 

1500  RESTORE  Strengths* 

FOR  j=0  TO  1* 

nx( j)=5* 

FOR  k-1  TO  4* 

READ  a,b,c* 

army(k,0, j )=a* 

army (k, 4, j )=b* 

array (k, 5, j)=c* 

map(b,c,0)=k* 

raap(b, c, 1 )=j+l* 

NEXT  k, j* 

Strengths :* 

DATA  64,2,8,64,3,7,64,5,6,64,6,6 

DATA  64,2,2,64,3,2,64,5,1,64,6,0 

■* 

FOR  j=0  TO  1* 

FOR  k=0  TO  20* 

a=INT(RND(l)*k*3)* 

FOR  1=1  TO  5* 

a=a+INT{RND(l)*21-8)* 

NEXT  1* 

IF  a<16  THEN  a=0  ELSE  a=(a+k*8) 

AND  254* 

fq(k,3)=a* 

NEXT  k, j* 

RETURN* 

* 

PlaceTroops!* 

FOR  j=0  TO  8* 

FOR  k=0  TO  a* 

a=map( j ,k, 1 )* 

IF  a  THEN  a=a-l:GOSUB  1800* 

NEXT  k, j* 

FOR  a=0  TO  1* 

e=13+a*12::f=a*22* 

dx=2-4*a:d=0* 

FOR  j=0  TO  8* 

c=fq( j ,a) :GOSUB  1340* 

e=e+dx*2* 

IF  j>3  THEN  f=f+dx:e=e-dx* 

NEXT  j,a* 

IF  pn  THEN* 

PUT  (280,160) ,s5,PSET* 

ELSE* 

PUT  (280,160),s6,PSET* 

END  IF* 

RETURN* 

•« 

1800  b=mapC j ,k,0)* 

c=army (b,0, a)* 

d=army (b, 6, a)* 

1830  e=( j-k+10)*2-l* 

f=(13-j-k)*2+l* 

1840  IF  a  THEN* 

PUT  (e*8+l,f*a),a5,PSET* 

LOCATE  f+a+l,e+l* 

PRINT  SPACE$(2);* 

GOTO  1850* 

END  IF* 

PUT  (e*8+l, (f+l)*3) ,s6,PSET* 

LOCATE  £+a+l,e+l* 

PRINT  SPACE? (2) ;* 

1850  IF  C=0  THEN  RETURN* 

LOCATE  f+a+l,e+l* 

PRINT  RIGHTS ( "0"+HEXS(c) , 2 ) ; * 

IF  d  AND  a=0  THEN* 

LOCATE  f+2,e+l* 

PRINT  SPACES (2);* 

PUT  (e*a+l, (f+l)*a+l) ,sll* 

RETURN* 

END  IF* 

IF  d  AND  a»l  THEN* 

LOCATE  f+l,e+l* 

PRINT  SPACE? (2);* 

PUT  (e*a+l, f*8+l) ,s9* 

END  IF* 

RETURN* 

4 

Reveilles* 
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sw=0 I e=nx ( pn ) -1* 

IF    e<l    THEN    RETURN-* 

FOR    j=l    TO    e-l-« 

IF   army(  j,a,pn)>  =  l    THEN    1970-* 

t=array( j , 4 , pn ) * 

b=array( j , 5, pn)* 

IF   map( t,b,0)=j    THEN   map(t,b,0)= 

0-* 

POS    k=j    TO    e* 

FOR    1=0    TO    6-* 

ariTiyfk,  l,pn)=army(k+l ,  1  ,pn)< 

army  ( K+1 , 1 ,  pn )  =0-* 

NEXT    1< 

t=a  riny  ( k ,  4 ,  pn )  < 

b=array(k, 5 , pn)< 

raap(  t,b,0)=k-* 

NEXT  y* 

nx(pn)=nx(pn)-l* 

j  =  e:     sw=l'< 

1970    NEXT    j* 

IF  sw  THEN  Reveille* 

FOR  j=l  TO  e* 

armyt  j, 0,pn)=army{ j, 0,pn)+army( j 

,2,pn)-« 

army  (  j  ,  2 ,  pn )  =army  (  j ,  3 ,  pn )  ■« 

army(  j  ,  3  ,pn)=0-* 

army(  j,  6  ,pn)=0'< 

NEXT  j* 

k^nxC  l-pn)-« 

FOR  j=l  TO  k* 

armyt  j  ,  6,  l-pn)=0'* 

NEXT-* 

GOSUB  2400-* 

2050  IF  bp>0  THEN* 

FOR  j=0  TO  l-« 

FOR  k=l  TO  bp-* 

a=BTL(k,  j,0)-* 

army  (a,  6,  j)=army(a,6,  j)-H-* 

NEXT-* 

NEXT-* 

END  IF-* 

RETURN-* 

Battle:-* 

GOSUB  2400-« 

a=nx(0)'* 

IF  nx{l)>a  THEN  a=nx(l)-* 

FOR  j=0  TO  1-* 

FOR  k=l  TO  a-* 

army{k,6,  j)=0-« 

NEXT  k,  j-* 

GOSUB  2050-t 

RETURN  ■* 

-* 

Prisoners:* 

FOR  j=0  TO  1-* 

a=l-j* 

b=nx( j)-l* 

FOR  k=l  TO  b-* 

IF  army(k,0,  j)>  =  l  THEN  22Ba-» 

fq(2,a)=fq(2,a)+army(k,2,  j)-harray 

(k,3, j)* 

IF  fq(2,a)>255  THEN* 

c=fq(2,a)-2SS* 

fq(3,a)  =  fq(3,a)->-c* 

fq(2,a)=255* 

END  IF* 

fq{6,a)  =  fq(6,a)-Karmy(k,  1,  j)* 

IF  fq(6,a)>255  THEN* 

c=fq(6,a)-25S* 

fq(7,a)=fq(7,a)+c* 

fq(6,a)=255* 

END  IF* 

IF  map(army(k,4, j) ,army(k,5, j),0 

)=k  AND  niap(army(k,4,  j) ,  army(k,  5 

'  j) ,l)=j  +  l  THEN* 

map( array (k, 4,3) ,army(k,5, j) ,0)=0 

* 

END  IF* 

FOR  1-0  TO  6* 

array(k, 1, j)=0* 

NEXT* 

2280  IF  army(k,6, j)>=l  THEN  2320 

* 

fq(4, j)=fq(4, j)+array(k,l, j)* 


army(k, 1 , j)=0* 

IF  fq(4,j)>255  THEN* 

c=fq(4, j)-255* 

fq(5,  j)  =  fq(5,  j)-Hc* 

fq(4, j)=255* 

END  IF* 

2320  NEXT  k,j* 

RETURN* 

* 

2400  bp=0* 

FOR  j=0  TO  a* 

jl=C j-4)*(4-j>0)* 

j2=a-t j>4)*(4-j)* 

FOR  k-jl  TO  j2* 

a=map( j ,k, 0)* 

r=map( j ,k, 1 )* 

IF  a=0  OR  r=0  THEN  2490* 

IF  army(a,0,r-l)<l  THEN  2490* 

t-j-fl* 

b=k:  GOSUB  2500* 

b=b-l:  GOSUB  2500* 

t=t-li  GOSUB  2500* 

2490  NEXT  k, j* 

RETURN* 

2500  IF  t<0  OR  b<0  OR  t>8  OR  b>8 

THEN  RETURN* 

pa=map{ t ,b,0 )« 

IF  pa=0  THEN  RETURN* 

IF  inap(t,b,  l)=r  THEN  RETURN* 

IF  army(pa,0, 2-r) <1  THEN  RETURN* 

bp=bp-H* 

BTL(bp,r-l,0)=a* 

BTL(bp, 2-r ,0>=pa* 

RETURN* 

* 

Resolve:* 

IF  bp=0  THEN  RETURN* 

FOR  j-1  TO  bp* 

FOR  k=0  TO  1* 

a=l-k* 

an=BTL( j ,k,0)* 

ax=army  (  an,0,tc)* 

ht=army(an,6,k)* 

ct=INT{ax/ht)+l* 

BTL( j , a , 1 ) =INT ( ct*ka-H ) * 

BTL(  j ,  a ,  2  )  =  INT  ( ct*kb-H )  * 

BTL(  j,a,3)=INT(ct*kc-t-l)* 

NEXT  k, j* 

FOR  j=l  TO  bp* 

j0=BTL( j,e,0)* 

jl=BTL( j,l,0)* 

GOSUB  3100* 

armyt j0, 0,0) =armyCj0, 0,0) -a*BTL( 

j,0,l)* 

array ( jl,0, 1 )=armyC jl, 0, l)-b*BTLC 

j,l,l)* 

GOSUB  3100* 

c=a*BTL( j,0,2)* 

army( j0, 0, 0)=array{ j0,0,0)-c* 

army  (  j0, 1 ,0  )=army(  j0, 1 ,  0)-fc* 

c=b*BTL( j,l,2)* 

array ( jl,0, l)=army( jl,0, 1 )-c* 

armyt  jl,  1,  l)=army(  jl ,  1,  iHc* 

GOSUB  3103* 

c=a*BTL( j,0,3)* 

army{ j0, 0,0)=army( j0,0,0)-c* 

array (  j0,  3,0) -armyt  J0,3,0)-kc* 

c=b*BTLt j,l,3)* 

armyt j 1,0, l)=army( jl, 0, l)-c* 

arrayt  jl,  3,  l)=army(  jl,  3  ,  ij-s-c* 

NEXT  j* 

RETURN* 

* 

Reinforcements:* 

a=l-pn:b=0* 

FOR  j=0  TO  8; FOR  k=0  TO  B* 

IF  mapt  j,k,l)=pn-f-l  THEN  b=b-H* 

NEXT  k, j* 

fq( 1 , pn ) =fq( 1 , pn ) +h* 

IF  fq{l,pn)>255  THEN* 

b-fqtl,pn)-25  5* 

f  q  (  2 ,  pn )  =  f  q  (  2 ,  pn )  +b* 

fq(l,pn)=255* 

END  IF* 


t=4:b=pn*8* 

IF  raaptt,b,0)<>0  THEN  RETURN* 

IF  raaptt,b,l)=pn-H  THEN* 

fq{0,a)=0ifq(l,a)=0* 

GOTO  3060* 

END  IF* 

js=nx(  a)* 

IF  j>31  THEN  RETURN* 

jl=fqt0,a)* 

IF  jKl  THEN  3060* 

nxta)=nx  t  a)  -H* 

mapt t ,b, 0)= j* 

maptt,b,  l)=a-t-l* 

armyt  j,0,a)»=jl* 

FOR  k=l  TO  3* 

arrayt j,k,a)=0* 

NEXT  k* 

arrayt  j, 4,a)  =  t* 

arrayt  j, 5,a)=b* 

3060  FOR  k=0  TO  19* 

fq(k,a)  =  fqtk-H,a)* 

NEXT  k* 

fqt20,a)=0* 

RETURN* 

* 

3100  a=0iFOR  m=l  TO  6* 

IF  RND(1)<.5  THEN  a=a-H* 

NEXT  m:b=6-a* 

RETURN* 

4 

3200  talkS="pre83  1  through  5  to 

choose  seenaireeo. "* 

GOSUB  talk* 

WINDOW  4, "Scenario:  Press  1-5", t 

65,70)-t255,l20),16,l* 

PRINT  "1>  Capture  capital/far"* 

PRINT  "2>  Capture  capital/near"* 

PRINT  "3>  Occupy   8/12  cities"* 

PRINT  "4>  Control  6/12  cities"* 

PRINT  "5>  Occupy   40/61  hexes"* 

GrabKey:* 

a5=INKEY¥:IF  aS=""  THEN  GrabKey* 

gn=VAL,ta$)* 

IF  gn<l  OR  gn>5  THEN  GrabKey* 

WINDOW  CLOSE  4* 

talk$  =  "seenaireeo"■^STRS  tgn)-t-CHRS 

t46):GOSUB    talk* 

RETURN* 

* 

Outcome:* 

a=0:ON  gn  GOSUB  3430,3450,3480,3 

490,3580* 

IF  a»0  THEN  RETURN* 

en5=c$  ;ea""a* 

GOSUB  DrawField* 

GOSUB  PlaceTroops* 

a=ea* 

WINDOW  4, "Outcome", (25, 70) -t300, 

120), 16,1* 

PRINT  "Player  "a"  wins"* 

MaybeOut:* 

PRINT  c?* 

PRINT  "Press  Q  to  quit,  RETUEU?  t 

o  play. "* 

a5»""* 

WHILE  aS-""* 

a$=INKEY?* 

WEND* 

WINDOW  CLOSE  4* 

IF  UCASE?(a$)="Q"  THEN  GetOut* 

WINDOW  CLOSE  2:WIND0W  CLOSE  1* 

CLEAR  ,25000* 

RUN* 

* 

3430  IP  maptcitt2,0},citt2,  U,l) 

=1  THEN* 

a=2* 

c?''"Red  captured  the  capital"* 

GOSUB  Announce* 

RETURN* 

END  IF* 

GOTO  3460* 

* 

3450  IF  raap(oit(3,0) ,oit(3,l)  ,  1) 

=1  THEN* 
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a=2* 

c$="Red  captured  the  capital"-* 

GOSUB  Announce* 

RETURN* 

END  IF* 

-< 

3460  IF  mapCcit(l,0),cit(l,l),l) 

=2  THEN* 

a=l* 

c5="Yellow  captured  the  capital" 

* 

GOSUB  Announce* 

RETURN* 

END  IF* 

RETUM* 

* 

3480  i=8:G0T0  3500* 

3490  1=6* 

3500  c(l)=0:c(2)=0< 

FOR  j=l  TO  12:t=citt j,0) :b=cit[ j 

r=raap(t,b,l):c(r)=c(r)+l* 

IF  gn=4  THEN* 

an=raap[ t,b,0)* 

IF  r>0  THEN  IF  an=0  OR  array(an,6 

,r-l)>0  THEN  c(r)=c(r)-l* 

END  IF* 

NEXT  j* 

IF  c(l)->l  THEN* 

a=2* 

c5="Red  captured"+STR5(c(l) )+"  c 

ities"* 

OOSUB  Announce* 

RETURN* 

END  IF* 

IF  c(2)=>l  THEN* 

a=l* 

c$=" Yellow  captured "+STR$ ( c ( 2 ) ) + 

"  cities"* 

GOSUB  Announce* 

END  IF* 

RETURN* 

♦ 

3580  cCl)=0:c(2)=0* 

FOR  j  =  0  TO  8:  FOR  }i=B    TO  8* 

r=map(  j,)c,l)  ;c(  r  )=c(  r  )+l* 

NEXT  k,j* 

IF  c(l)=>40  THEN* 

a=2* 

c?="Red  occupiea"+STR5(c(l) )+"  h 

exes"* 

talk?""REHD  AA4KYUWPAYZ":SAY  tal 

talk?=STR?(c(l) )+"hehxe3"* 

GOSUB  talk: RETURN* 

END  IF* 

IF  c(2)>=>40  THEN* 

a=l* 

c5="Yellow  occupies"+STRS(c(2) )+ 

"  hexes"* 

talkS="YEHLOH  AA4KYUWPAY2":SAY  t 

alkS* 

tal)<5=STR5(c(2)  )+"heh)£es"* 

GOSUB  talk: RETURN* 

END  IF* 

RETURN* 

* 

Setupi* 

DEFINT  s* 

SCREEN  1,3  20,200,2,1* 

■  open  window  3  with  no  * 

■  gadgets  or  title  bar* 

WINDOW  1, "", (0,0) -{311, 25), 16, I* 

WINDOW  3,"", (0,0)- (311, 185), 16,1 

* 

WINDOW  OUTPUT  3* 

PALETTE  0,0,0,0* 

PALETTE  1, .5,1,1* 

PALETTE  2,1,0,0* 

PALETTE  3,1,1, .1* 

WIDTH  40* 

CLS* 

DIM  Voice%(8)* 

RESTORE  VoiceData* 

FOR  j=0  TO  8* 

READ  Voice* (j)* 


NEXT* 

RESTORE* 

'  speech  will  be  synchronous* 

VoiceData:* 

DATA  110,0,170,0,22200,64,10,1,0 

* 

talk$="Welcome  to  Hex  War."* 

LOCATE  13,11* 

PRINT  talk?* 

GOSUB  talTc* 

Temp?= "Click  button  twice  to  tur 

n"* 

LOCATE  15, 8: PRINT  Temp?* 

Demp?="  speech  off  or  on  during 

game. "* 

LOCATE  16,6;PRINT  Demp?* 

talk?=Temp?+Derap?* 

GOSUB  talk* 

'  hex  shape* 

LINE  O,0)-(2,0):LINE  (13,0)-(15 

,0)* 

LINE  {0,1)-(3,1) jLINE  (12,1)-(15 

,1)* 

LINE  (3,2)-(12,2)!LINE  (4,3)-(ll 

,3)* 

FOR  j=4  TO  11* 

LINE  (6,j)-(9,j)* 

NEXT* 

LINE  (4,12)-(H,12):LINE  (3,13)- 

(12,13)* 

LINE  (0,14)-(3,14) :L1NE  (12,14)- 

(15,14)* 

LINE  (0,15)-(2,15) :LINE  (13,15)- 

(15,15)* 

DIM  sl0(225)* 

GET  (0,0)-(15,15),sl0* 

PUT  (0,0) ,sl0* 

'  cursor  shape* 

FOR  k=0  TO  1* 

GOSUB  Bracket* 

PAINT  (32,42) ,2+k,l* 

LINE  (30,35)-{4a,44) ,0,bf* 

LINE  (32,32)-(47,47),0,bf* 

GOSUB  Bracket* 

IF  k=0  THEN* 

DIM  38(400)* 

GET  (26,26)-(53,49),s8* 

PUT  (26,26),38* 

END  IF* 

IF  k=l  THEN* 

DIM  s7(400)* 

GET  {26,26)-(53,49),s7* 

PUT  (26,26),s7* 

END  IF* 

NEXT  k* 

GOTO  Blip* 

Bracket:* 

PUT  (16,32) ,sl0* 

PUT  (32,48),sl0* 

PUT  (48,32) ,sl0* 

PUT  (32,16),sl0* 

RETURN* 

Blip:* 

'  city  shape* 

FOR  3=0  TO  1* 

LINE  (2,j)-(7,j)* 

LINE  (2, j+8)-(7, j+8)* 

LINE  (j,2)-(j,7)* 

LINE  (j+8,2)-( j+8,7)* 

NEXT* 

PSET  (1,1):PSET  (8,1)* 

PSET  (1,8):PSET  (8,8)* 

DIM  s2(100)* 

GET  (0,0)-(9,9) ,s2* 

PUT  (0,0),e2* 

'  capital  shape* 

FOR  k=0  TO  1* 

FOR  j=0  TO  3* 

LINE  (4, j)-(ll, j) ,2+k* 

LINE  (4, j+12)-(il, j+12) ,2+k* 

LINE  {l,4+j)-(14,4+j) ,2+k* 

LINE  (l,8+j)-(14,e+j) ,2+k* 

NEXT* 

LINE  (3,6)-(5,9) ,0,bf* 

LINE  (6,3)-(9,5) ,0,bf* 

LINE  (6,10)-(9, 12),a,bf* 


LINE  (10,6)-(12,9),0,bf* 

IF  k=l  THEN* 

DIM  s3(225)* 

GET  (0,0)-(15,lB),s3* 

PUT  (0,a),s3* 

END  IF* 

IF  k=0  THEN* 

DIM  s4(225)* 

GET  (0,0)-(15, 15),s4* 

PUT  (0,0) , s4* 

END  IF* 

NEXT  k* 

'array  shape* 

FOR  j=0  TO  14* 

LINE  (7,0)-( j,7),3* 

NEXT* 

FOR  j=4  TO  10* 

LINE  (7,2)-(j,5),0* 

NEXT* 

DIM  35(64)* 

GET  (0,0)-C14,7) ,s5* 

PUT  (0,0), a  5* 

'  other  army  shape* 

FOR  j=0  TO  14* 

LINE  (7,7)-( j,0),2* 

NEXT* 

FOR  j=4  TO  10* 

LINE  (7,5)-(j,2),0* 

NEXT* 

DIM  s6(64)* 

GET  (0,0)- (14,7) ,s6* 

PUT  (0,0),s6* 

'  crosses 

FOR  k=3  TO  1* 
FOR  j=0  TO  1* 
LINE  (0,2+j)-(13,2+j),2+k* 

LINE  (10+j,0)-(10+j,5),2+k* 

LINE  (2+j,0)-(2+j,5) ,2+k* 

NEXT* 

FOR  j=0  TO  1* 

LINE  (6+j,0)-(6+j,5),0* 

NEXT* 

IF  k=0  THEN* 

DIM  811(150)* 

GET  (0,0)-(13, 13) ,311* 

PUT  l0,0),sll* 

END  IF* 

IF  k=l  THEN* 

DIM  s9(150)* 

GET  (0,0)-(13,13) ,s9* 

PUT  {0,0),s9* 

END  IF* 

NEXT  k* 

DIM  a<rmy(31,6,l)  ,BTL(64,1,3)* 

DIM  map(9,9,2) ,fq(20,l),nx(l) ,c( 

2)* 

cn=12:DIM  cit(cn,l)* 

RANDOMIZE  TIMER* 

* 

pn=l  iine=31* 

iran=3    '    Maximum   number   of   moves* 

ka=l/48:kb=l/48:kc=l/32* 

RESTORE  Whatsit* 

FOR  j=l  TO  en* 

FOR  k=0  TO  1* 

READ  cit( j,k)* 

NEXT* 

map{cit(i ,0),cit(j,l),2)=l* 

NEXT* 

Whatsit:* 

DATA  8,4,0,4,8,0,0,8,4,0,4,8* 

DATA  5,5,3,3,6,3,2,5,5,2,3,6* 

CLS* 

GOSUB  3200* 

CLS* 

GOSUB  1500* 

RETURN* 

* 

Announce:* 

talk?»e?* 

* 

talk:* 

IF  TalkFlag=0  THEN  SAY  TRANSLATE 

$(talk?),Voice%* 

RETURN* 
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Reviews 


Leader  Board 
For  The  64 

David  Florance 
Programming  Assistant 

Requirements:  Commodore  64  (or  Com- 
modore 128  in  64  mode)  with  a  disk  drive 
and  a  joystick.  Versions  for  the  Amiga  and 
Atari  ST  are  planned. 


The  spring  and  summer  months,  with 
their  profusion  of  golfing  events, 
couldn't  be  a  better  time  for  Access 
Software  to  have  released  its  new  Lead- 
er Board  professional  golf  simulator. 
Continuing  in  the  tradition  of  such  ear- 
lier popular  releases  as  Beach-Head  and 
Raid  Over  Moscow,  Access  has  fash- 
ioned a  stunning  piece  of  software  in 
this  new  golfing  game. 

All  who  have  tested  Leader  Board 
agree  that  it  has  excellent  sound  and 
graphics  and  is  a  lot  of  fun  to  play. 
Leader  Board  is  easy  to  use,  too.  Al- 
though you  probably  won't  shoot  un- 
der-par  scores  during  your  first  18 
holes,  we've  yet  to  see  someone  play 
the  game  and  not  like  it.  One  person 
trying  Leader  Board  for  the  first  time 
scored  a  52  on  one  hole  (for  you  golf 
novices,  that's  not  very  good),  and  still 
said  he  enjoyed  the  game.  Another 
player,  professing  to  like  neither  com- 
puters nor  golf,  is  considering  buying  a 
computer  just  to  play  Leader  Board. 

Bruce  and  Roger  Carver,  authors  of 
the  game,  have  done  an  exceptional  job 
on  everything  from  the  golfer's  swing 
to  the  action  of  the  joystick.  The  pro- 
gram lets  you  hook,  slice,  cut,  plug,  top, 
and  drub — just  as  in  real  life.  You  can 
even  learn  to  hit  the  ball  straight — if 
you  concentrate. 

Leader  Board  offers  three  levels  of 
play:  novice,  amateur,  and  professional. 
Start  with  the  novice  level  to  get  some 
practice.  You  can  even  move  to  the 
driving  range  for  additional  practice  on 
your  strokes.  The  program  lets  you  play 
anywhere  from  18  to  72  holes,  and 
there  are  four  courses  from  which  to 
choose — each  with  a  distinct  personal- 
ity and   level   of  difficulty.   Even   the 


Teeing  off  on  a  typical  hole  in  Leader 
Board,  an  exceptional  golf  simulator  for 
the  Commodore  6i. 

wind  is  a  big  factor  on  the  professional 
level  of  Leader  Board. 

Good  Whooshes  And  Plops 

From  one  to  four  players  can  take  part, 
and  scoring  is  automatic.  The  sound 
effects — from  the  whoosh  of  the  stroke 
to  the  plop  of  the  ball  landing  in  a  water 
hazard — are  excellent  throughout. 
Even  the  sound  of  the  ball  dropping 
into  the  cup  is  realistic.  The  movements 
of  the  golfer  and  the  ball  in  flight  (and 
bouncing  on  the  fairway  or  green)  are 
superb. 

Just  as  in  a  real  game  of  golf,  you'll 
need  some  time  to  get  your  strokes 
down.  You  control  the  power  of  your 
swing  and  the  direction  of  the  ball  by 
pressing  the  joystick  button  and  mov- 
ing the  stick  forward  or  backward  at  the 
right  moments. 

After  playing  hundreds  of  holes, 
I've  concluded  that  the  most  important 
factor  in  making  good  scores  is  select- 
ing the  right  clubs.  Leader  Board's  man- 
ual offers  course  cards  with  detailed 
yardage  indicators  as  well  as  a  chart 
with  normal  club  distances.  These  are 
invaluable.  Access  Software  is  also  sell- 
ing additional  tournament  disks,  with 
four  different  courses  on  each  disk,  for 
$19.95  each. 

The  Leader  Board  disk  is  not  copy- 
protected, so  you  can  make  backups  for 
safekeeping.  None  of  the  disks  work, 
however,  unless  a  security  key  is 
plugged  into  the  computer's  cassette 
port. 

I've  been  a  golfer  for  about  15 
years.  Maybe  it's  a   coincidence,  but 


when  1  went  to  my  local  course  after 

playing  Leader  Board  for  several  weeks, 
I  had  a  great  round.  Who  knows?  May- 
be Leader  Board  is  even  improving  my 
game. 

Leader  Board 

Access  Software,  Inc. 
2561  South  1560  West 
Woods  Cross,  UT  84087 
$39.95 


SunDog: 
Frozen  Legacy 
For  Atari  ST 

David  Florance 
Programnung  Assistant 

Requirements:  Atari  ST-series  computer 
with  a  color  monitor;  or  an  Apple  Il-series 
computer  with  at  least  64K  RAM  and  a 
color  monitor.  The  ST  version  was  re- 
viewed. 


Certainly  one  of  the  most  exciting  as- 
pects of  the  future  is  space  exploration. 
How  will  it  be  out  there?  What  will  we 
find,  and  how  will  we  learn  to  adapt 
and  go  about  our  everyday  existence? 
Will  people  carry  the  same  instincts, 
societal  norms,  beliefs,  and  habits  into 
the  dark  reaches  of  space?  Whatever 
happens,  it's  a  sure  bet  that  if  life's  at  all 
similar  to  SunDog:  Frozen  Legacy,  we'll 
still  have  to  know  what's  a  good  deal 
and  what's  not,  when  to  beg,  when  to 
borrow,  and  when  to.. .well,  rethink  our 
priorities. 

SunDog,  from  Oasis/FTL  games,  is 
a  first-rate  graphics  adventure  with 
enough  complexity  for  the  seasoned 
player  but  simple  enough  for  a  begin- 
ner to  enjoy.  First  marketed  for  the 
Apple  II  computers,  the'new  Atari  ST 
version  features  stunning  graphics  and 
easy  mouse-driven  controls. 

You  start  this  adventure  with  a  tre- 
mendous inheritance  left  to  you  by  an 
ambitious  uncle  who  had  designs  on 
building  a  religious  colony.  Your  task,  a 
large  one,  is  to  fill  his  shoes  by  complet- 
ing his  dream.  It's  not  easy.  There's 


July  1986     COMPUTEI     59 


more  than  one  obstacle  in  your  path. 
You  don't  know  where  the  colony  was 
planned,  how  to  pilot  a  freighter  (the 
SunDog),  or  how  to  spend  the  money  he 
left  you.  Be  careful — chances  are  you'll 
be  mugged,  swindled,  and/or  lost  in  a 
vast  mountainous  continent  before  you 
know  it.  You  can  even  lose  your  star- 
ship  and  your  inheritance  if  you  don't 
pay  attention  to  business. 

Your  first  task  is  to  find  the  colony 
(named  Banville).  There's  an  immense 
amount  of  ground  to  cover  because 
SunDog:  Frozen  Legacy  encompasses  50 
cities  on  18  different  inhabited  planets 
in  12  star  systems. 

Next,  you'l!  have  to  locate  and  buy 
all  the  goods  necessary  to  complete  the 
colony.  Although  you  start  off  with 
enough  money  to  purchase  the  goods, 
unless  you  are  very  adroit,  lucky,  or 
both,  you'll  make  some  financial  mis- 
takes that  may  exhaust  or  at  least  se- 
verely deplete  your  bank  account. 
Don't  despair.  Just  start  over  and  be 
more  careful  next  time.  Remember,  no 
one  promised  that  life  in  the  far  reaches 
of  space  would  be  a  rose  garden. 

Beware  Of  Beggars 

Interaction  is  an  important  part  of  Sun- 
Dog;  Frozen  Legacy.  The  shopkeepers 
and  store  managers  talk  to  you,  and 
you're  expected  to  respond.  Your  range 
of  possible  responses  is  limited,  though 
this  might  be  fortunate.  If  you  utter  the 
things  that  run  across  your  mind  while 
you're  trying  to  finish  the  mission, 
you'd  probably  be  hunted  down  by  the 
galactic  security  force  and  executed  on 
sight.  So  don't  be  too  abrasive. 

On  the  other  hand,  when  a  beggar 
asks  you  for  money,  don't  give  him 
your  last  piece  of  cash.  You  may  need  it 
to  transport  hastily  out  of  the  city. 
Some  of  those  beggars  are  ruffians  as 
well,  so  be  prepared  to  defend  yourself. 
In  other  words,  even  in  this  futuristic 
setting,  the  general  populace  seems  still 
to  agree  with  P.T.  Barnum's  dictum  that 
a  sucker's  bom  every  minute.  And  for 
the  most  part,  you  are  considered  the 
latest. 

Other  characters  to  watch  out  for 
are  the  many  entrepreneurs  wandering 
around  or  hanging  out  in  the  eating 
establishments.  They're  more  than 
willing  to  be  your  pal.  You'll  have  to  be 
clever  to  sort  out  the  good  and  bad 
deals.  These  gents  can  help  you  as  well 
as  harm  you. 

Popsicle  People 

To  finish  the  adventure,  you  have  to 
locate  the  colonists.  They  aren't  capable 
of  finding  you  because  they're  cryogen- 
ically  frozen.  This  is  when  your  piloting 
skills  aboard  the  SunDog  are  put  to  the 
test.  Setting  the  course  is  perhaps  the 


A  top  view  of  the  SunDog,  a  space 

freighter  in  which  you  search  for  frozen 
colonists  and  a  lost  colony  (Atari  ST 
version). 

most  challenging  level  of  the  adven- 
ture. There  are  many  ways  to  be  suc- 
cessful, and  just  as  many  ways  to  fail. 
For  instance,  you  can  save  time  by  trav- 
eling at  warp  speeds,  but  you'll  spend 
more  fuel,  and  trying  to  reach  warp  can 
be  dangerous.  To  be  safe,  be  sure  to 
check  for  engine  damage  often.  When 
the  SunDog  is  not  operating  at  peak 
efficiency,  you  lose  time  and  effort. 
Buying  replacement  parts  is  not  diffi- 
cult, and  if  you  shop  around  you  may 


be  able  to  find  some  bargains. 

The  Atari  ST  gets  a  chance  to  show 
off  with  SunDog:  Frozen  Legacy.  Stun- 
ning visual  effects  abound,  and  each 
level  has  graphic  screens  that  will 
amaze  you.  The  detail  is  enormous.  If 
you've  been  wondering  what  a  graph- 
ics adventure  game  is  like  on  the  new 
generation  of  personal  computers,  Sun- 
Dog: Frozen  Legacy  is  a  must.  It's  a 
whole  different  world. 

A  helpful  hint  from  this  Star 
Freighter  Captain.  Don't  let  your  eyes 
fool  you.  You  must  still  eat  and  sleep  to 
survive  and  complete  the  mission.  So 
take  time  out  to  catch  a  few  winks  and 
grab  a  bite  to  eat.  You'll  need  all  your 
strength  and  attention  to  conquer  the 
challenges  of  SunDog. 

SunDog:  Frozen  Legacy 

(Atari  ST  version)  Oasis/FTL  Games 
P.O.  Box  112489 
San  Diego,  C4  92121 
(Apple  II  version)  Accolade 

Entertainment  Software 
20863  Stevens  Creek  Blvd. 
Cupertino,  CA  95014 
$39.95  each 


The  Goonies  And  Zorro 


Karen  McCuUough 

Requirements:  The  Goonies — an  Apple 
U-series  coiiiputer  with  at  least  48KRAM 
and  a  disk  drive;  Commodore  64  or  128  (in 
64  mode)  with  a  1541  disk  drive;  or  an 
Atari  400/800/XL/XE  with  at  least  48K 
RAM  and  a  disk  drive.  Zorro— same  re- 
quirements, except  Apple  ll-series  com- 
puters must  have  at  least  64K  RAM.  Color 
monitor  optional  but  recommended.  Joy- 
stick required.  The  Apple  versions  were 
revieived. 


Are  you  tired  of  shooting  aliens  and 
centipedes  in  arcade-style  computer 
games?  Bored  with  piloting  helicopters 
and  drilling  holes  in  brick  walls?  Does  it 
seem  like  you've  done  it  all — dodged 
the  best  of  them,  shot  the  worst — so 
that  it's  all  a  bit  of  a  drag  now?  Don't 
give  up  yet.  Datasoft/IntelliCreations 
has  some  new  challenges  for  you;  games 
with  a  smooth  blend  of  arcade  action  and 
adventure-like  puzzle-solving. 

Help  the  Goonies  (that  famous 
band  of  adventurers  from  the  movie  of 
the  same  name)  negotiate  an  under- 
ground labyrinth  to  find  pirate  treasure 
and  save  their  parents'  home  from  fore- 
closure. Or  perhaps  you'd  rather  be 
Zorro,  using  cunning  and  a  sharp  sword 
to  rescue  a  lovely  princess  from  Ser- 
geant Garcia. 


Whichever  fantasy  you  choose, 
you'll  need  the  standard  arcade  equip- 
ment: a  keen  eye  and  quick  reflexes.  But 
in  these  games,  there's  more  to  negoti- 
ating an  underground  maze  than  jump- 
ing over  cannonballs  and  dodging  bats. 
What  do  you  do  about  steampipes  that 
block  your  path?  And  how  can  you 
scale  new  heights  without  a  ladder?  If 
you  consider  it  unreasonable  to  have  to 
think  about  a  problem  rather  than 
shoot  your  way  out,  you'd  better  con- 
sider another  game. 

Still  interested?  Good.  These  two 
games  have  a  lot  to  recommend  them: 
excellent  graphics  and  animation; 
smooth,  fast  screen  changes;  and  accu- 
rate control.  At  the  start  of  each  session 
with  the  Apple  version,  the  program 
asks  you  to  calibrate  your  joystick  by 
moving  the  stick  to  the  right-,  left-,  top-, 
and  bottommost  positions.  Thereafter, 
the  game  adjusts  itself  to  your  stick 
settings,  resulhng  in  control  as  tight  and 
as  precise  as  found  in  most  coin-operated 
videogames.  (Joystick  calibration  isn't 
necessary  with  the  Commodore  and 
Atari  versions.) 

Inventive  Puzzles 

One  of  the  best  features  of  these  games 
is  their  interesting  and  inventive  puz- 
zles. There's  a  lot  happening  on  each 
screen,  and  it  may  take  some  time  to 
figure  out  what  it  all  means.  In  The 
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TlTARI  1 30XE 

ATARI  130XE  Super  Computer  Package 

130XE  Computer  1027  Printer 

1050  Disk  Drive  Atariwriter  ^ 

Call  for  individual  &  super  package  price 


ATARI  PRINTER  INTERFACES 


Uprml  A  . 


.5-195     MPP1150. 


Supra  1000E  Modem 44.95 

Afari  XM-301  Modem 44.95 

ATARI  130.XS  SUPER 
PRINTER  PACKAGES 

NX-10  Printer  &  U-Print  A 319 

Panasonic  1091  &  U-Print  A £99 

tufs  Piiittei  FsUqs  tot  Bg  cua  ski{«iiig  ciiites  w  asH  at 
amiitfs  iirta  iatfei  s  DMJatiitsJ  USA 

ATARI 130XE 

BROQERBUNO 

Print  Shop 2895 

Karaieka 2tl95 

Pirrtl  Shop 

Giaph  I!  II  arm  ...  1993 
f'lniShopCQmp  ....  27  95 

INFQCOIVI 

See  Commodore  64  sec- 

iton  for  rtems  an':  pnces 

ELECTRONIC  ARTS 

Aichonll 24.95 

flrchon  1995 

Seven  Cil  of  Gold....  2495 

SkyloK 24  95 

PinballConsi  1995 

One  on  One 34  95 

Super  Boulder  Dash  . .  1995 
:hES5masler2(M0  ...  2795 
Racing  Desnuction...  2495 

NIICROPROSE 

SilenlSetuice 2395 

Gunship 2395 

Acciojel 2395 

FIS  Strike  Eajle  ...  2395 
Kennedy  Apprnach .  33  95 
Conflic!  Vietnam  .       ?7  95 


SOFTWARE 

SSI 

See  ConjiTiotiore   6d  sec- 
Uon  iQf  Items  and  prices 

IVIISCELLANE0US130XE 

Mind  Pursuit 2395 

Newer-Ending  Story  . .  23  95 

Foobliizky 27  95 

Syntialc 32  95 

Typeseltet . . 27  95 

Ultima  (II 3795 

Ultima  IV 4195 

Hacker 1995 

Beacheadll   2795 

Raid  Over  Moscow...  2795 

Fight  Nighi    2395 

HardPall 23  95 

Right  Simulator  D  ...  3(95 

Letter  Perfect  3995 

Data  Perlecl  39  95 

Alternate  Reality  ....  27  95 

Fleet  System  II 49  95 

Page  Designer 23  95 

Megafontll 1993 

Rubber  Stamp 23  93 

Sargonlll  34  95 

Halley  Piojc:! 2395 

Synlile ,  :•.?  'A 


ATARI  520ST* 

Atari  520ST-RGB  System   ......  Call 

Alar!  520ST-MonochrQme  Sys  .  .  .  Call 
SF3140S/DD1  Megabyte  Disk  Dr . . .  Cail 

V/e  warranty  all  520ST  coiTipLiters  purchased 
front  ComputAbilily  for  ninety  days. 
'Please  call  for  stock  avallabilily  on  Atari  ST 
products  before  ordering  by  mail. 

MISCELLANEOUS  ST 


Gaio J-ty:j 

Kings  Qunsl  II 34  95 

ST  Talk 1795 

H&DBase 6995 

Typeseltet  ST 2795 

Habadex  Phone  39  K 

Word  Invaders 2-195 

Mean  IBGoll 34  95 

Financial  Cookbook     3495 

Brataccus 3495 

Michiron  Utilities 4195 

Enplodingfist 3495 

Black  Cauldron 2795 

Printmasler  SI 27  95 

PC  intercom  8995 

final  Word 94  96 

HEX. 2795 

Mudpies 2795 

Sundoo 2795 

Flipside 2796 

Soltspool 2795 

VIP  Piolessional  ....11995 

Ultima  II ■ 3995 

Perry  Mason 3495 

Degas 27  95 

Farenheil451  34  95 


AmaiTun  ,,.....-..  .34  95 

DOS  Shell 34.95 

Kissed    27  95 

9  Princess/Hmtiet 34  95 

Hacker 2995 

Dragonworld  . . .  .34  95 

Treasure  Island 27.95 

Wizard  oIOz 27  95 

Transylvannia 2795 

Borrowed  Time 34  95 

Mi-Ierm  34  95 

Regenl  Word 3495 

Regenl  Spell 3495 

Regenl  Base  ..... Call 

Goldrunnei 2795 

lime  Bandit  2796 

Zoomracks 4995 

Easy  Draw 9996 

Mindshadow 34.95 

PhanlasiB   2795 

Hippopolamus Call 

Supra  Hard  Drive Call 

Supial200ST  Modem  Call 
OM1 1200  ST  Modem  ...Call 
PC  Board  Designer  ....Cal 
Infoconi  See  IBM 


AMIGA 

Cs"  tor  Hsr0'^/afo  nncJ  Addon  Ponpherals  pncas 

AMIGA  SOFTWARE 


Hacker 2995 

Mindshadow 2995 

Mastertype 27  95 

VIP  Professional  ....  139.95 

Transylvannia  2795 

Crimson  Crown 2795 

Racter 29  95 

Analv«  6995 

On-line 4995 

ArlicFoi    2995 

Braiaccus 3495 

Adventure  Const 29  95 

Deluie  Video Call 

DeluiePami Call 

^Inlocom  See  IBM 


Maxicnm  39  95 

Maxidesk 49  95 

Maxiplarv 11995 

One  on  One 29  95 

7  Cities  (Gold 29.95 

Ekylon 29,95 

Mai  l)le  Madness 2995 

Retuin/Allaniis 2995 

Archon 2995 

Aegis  Animator 9995 

Exploding  Fist 27  95 

Deluxe  Print Call 

Music  Studio  3995 

Borrowed  Time 29  95 

Financial  Cooktjook      it  95 


APPLE 

t:AZER  128  APPLE  iiC 
COMPATIBLE 

CalUor  latest  prices 

APPLE  SOFTWARE 

BRODERBUND  SIR-TECK 

Print  Snop 3395 

Print  Shop  Graphics 

I  II  or  III 1795 

Print  Shop  Comp  2795 

KaiatBka 2195 

Carmen  Sandiego 2595 

Science  Tool  Kit 3995 

Bank  Street  Writer  ..  .44  95 
Fsntavision  34  95 

ELECTRONIC  ARTS 

Ad/enli.ieConsl    3495 

IvcV.Br.  II 2795 

Bards  Tale 2995 

Imagic  Football 2495 

Aijto-Duel . 34  95 

Skyfoi 2795 

Lords  of  Conquest   ...2795 

One  on  One 27  95 

Ultima  III 3995 

Ultima  tV  3995 

Mo.ebius 39,95 

Amnesia ..Call 

EPYX 

Ballbla^ei 24  95 

Winter  Games 24  95 

Summer  Games  II 2495 

World  S  Great/ 

Football  2495 

Eidolon 24  95 

Afshai  Trilogy  24  95 

KcionisHilt  24 » 

INFOCOKt 

See  IBM  section  tor  items 

and  pr.'CL'S 

jyilCRDPROSE 

SeoAran  J30XE  secliontor 
ilcms  iimi  pjicns 


Wi/ardry  [liani    2395 

Wizardry.' Legacy  ...  .2"  95 
Wizardry/ Proving...  ,3395 

Wizardry /Wernda 2995 

Wiziprini 1995 

SSI 

See  Commodore  64  sec- 
lion  for  Items  &  prices. 

APPLE  MISCELLANEOUS 

Geachead 23  Sl. 

Geachead  II 33  9!j 

Gamemaker -  -34  96 

Hacker 2795 

Hardball 2495 

Sundog 27  95 

Slar  league  Base    ...23  95 
Micitifeague  Bass   ... 29  95 

Newsroom .3995 

Clip  Art  Vol  I 20  95 

Clip  Art  Vol  II 27  95 

Gam 27  95 

Kings  Quest  II 34  96 

Dambuslers 24  S3 

Alternate  Reality  ....27  93 

KurigFu  Master 2595 

Karate  Champ  2595 

Strip  Poker 2395 

MalhBlasIci 34  95 

Fight  Nigm 24  95 

Crossword  Magic  ....34  95 

Typing  TutOi  III 34  95 

Law  Of  The  West  ....2493 

PS!  Trading 24.95 

Phaniasiell  27  95 

Rambo 27  95 

Amer  Challerge 2795 

Crossword  MagiC  ...  .34  95 


IBM  PC 

Corona  PC-400  Compatible Call 

Corona  Portable  PC  Compatible  . . .  Call 

PC  Multifunction  Boards 

We  carry  the  complele  li  ne  of  AST,  Herctites, 
Paradise,  STB,  end  Quadram 

Cal)  for  current  prices 

IBM  PC  SOFTWARE 

BRODERBUND  INFQCOM 

39  95 
27  95 
4995 
2995 


.2395 
.2795 
.  2795 


Flint  Sho;i 
Punt  Shop  Giaph  I 
Bank  Sireel  Writci 
Ancient  Art  of  War 

MICROPROSE 

fiSStiikc  Eagle . 
Kennedy  Approach 

Aerojet  

Silenl  Servicit 27  95 

IBM  MISCELLANEOUS 
N'ean  ta  .   .       34  95 

Gaio 27  95 

Wizaidiy 3995 

Strip  Poker 2795 

Jet 34  95 

Newsroom  3995 

Super  Sunday 24  96 

HomePak .,,  34  96 

Aller  Ego 34  95 

Hacker 29  95 

Borrowed  Time 27  95 

Isgui  Poitlolio  164  95 

Typing  Tutor      34  95 


Deadline 34  95 

Starcross 34  95 

ZorkI 2795 

Zorklloi  III..,.  29  95 

Witness 27  95 

Suspended  , J4  95 

Planeifali 27  95 

Sorcerer 2995 

Seastalkei  -27  95 

Cutthroats 27  95 

Hitchikei 27  95 

Suspect 2995 

Wishbringei  27  95 

Inddel  2995 

Enchanter  .........  27  95 

Spellbreaker 34  95 

Mind  Forever  34  95 

Gallyhoo 27  95 

SIERRA 

Kings  Quest 34  95 

Kings  Quest  It  34  95 

Ultima II  3995 


COMMODORE 

COMMODORE128 

C-128  Computer  Call     1670  Modem 1S9 

1571  Disk  Drive Call     t350Mou5E  4295 

1902Monltor Call     1750  512K  Expander  ...Cal 

COMMODORE  128  SOFTWARE 


Swillcalc  wi'Side 4995 

Wordwrilei  •  Spell  ...4995 

Data  Manager  11 4993 

Fleet  System  111 54  95 

Macti128 3495 

Superbase  128 6995 

Kings  Quest  II 34  96 

Home  Pak J!  95 


Superscirpi  120 5996 

Perlecl  Writer 49K 

Sylvia  Porter.  128 4995 

Matrix   3995 

Perfecl  Filer  4995 

Paperback  128 Jl  95 

Vizi*rite128 Cal 

ViZiStar  128 Cal 


COMMODORE  64 

C-&4Computer Call     tSIQiitukm 169 

1S41  Qsk  Drive Call     1932  Monligt Call 

lae^fodeiTi 4996 

COMMODORE  64/128 

SUPER  PRINTER  PKGS. 

NX-10 &Xetec  Supeigraphic. .  ..329 
Panasonic  1091  &  Xetec 

Supergraphic 309 

Legend  1080  &  Xetec 

Supergraphic 269 

Super  Printer  Packages  /lave  no  aarleri  shipptng 
or  charge  card  surcharges  when  shipped  in 
Conlirwnlal  USA 


WiiUe  Supplies  Last 
B.1. 80  Column  Card ....  99.99 


XETEC  Super  Graphic 69.95 

Cardco  G-Wiz 54.95 


GENERAL 
HARDWARE 

iliiir 

!■«  pwen  atKwo  Twi  PBiKTiD  wora 

NX-10 Call 

SG-10 Call 

SG-1 5  ........ .  369 

SD-10 339 

SD-15 449 

SR-10 489 

SR-T5 Call 

rjL-10 Call 

NL-10C Call 

PfllNTEflS 

Panasonic  1091  239 

Legend  808  ...  - 169 

Legend  lOBC 209 

Pjiweriype 309 

Juki  5510 389 

Epson Call 

Panasonic  1080  215 

PRINTED  BUFFERS 

Microfazer From  169 

U-Bulf  16K 79,95 

U-Bulf64K 9995 

MODEMS 

Volksmodem  1200 189 

Prometheus  1200 299 

Maxwell  1200 Call 

Maxwell  2400 Call 

Prometheus  2400 Call 

MONITORS 

TttommsonRGB 289 

Commodore  1802 Call 

Commodore  1902A 289 

Gold  Star Call 

Amdek Call 

Panasonic  I300DT 279 

NEC  1225 139 


COMMODORE  64  SOFTWARE 


ACCESS 

MachV-Cart 21  95 

Leader  Board 27.95 

SSI 

Battle  ol 

Aniieiam 32  95 

Fighfer  Command 

iNo  Atari! 37  95 

Panze'  Gramdier 24  95 

USAAF 37  » 

Breakthrough/ 

Ardennes  37  95 

KampgruppB 37.95 

Phamasie  II 

(No  Atari) 27  95 

Broadsides 24  95 

Carrier  Force 37  95 

Comp  Ambush 37  95 

Field  ot  Fire 

INo  Applet  24  95 

Gemstone Warrior  ...2195 

Imp  Galacium 24  95 

Compuier  Baseball... 24 95 
Comp  Quarierback  ..24  95 
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Zork  I 24  93 

Zorkll.  Oflll 27  93 

Deadline 29  95 

Starcross 2995 
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Enchanter 24  95 
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Racing  Destruction  . .  .24.95 
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Goonies,  the  solution  to  a  problem  often 
requires  getting  the  two  characters  on 
the  screen  to  cooperate.  In  Zorro,  you 
may  need  a  special  object,  lots  of  curi- 
osity, or  just  a  bit  of  luck  to  solve  a 
puzzle. 

The  two  games  are  similar  in  con- 
cept, but  not  identical  in  execution.  The 
Goonies  has  a  stronger  arcade  action 
feel,  as  befits  its  descent  from  that  excit- 
ing (if  not  very  memorable)  movie. 
Zorro  plays  more  like  a  graphic  adven- 
ture. There  are  objects  to  collect  (some 
may  have  magical  properties),  a  town 
to  map,  secret  passages  to  find,  and 
visual  puzzles  to  solve.  The  Goonies  has 
a  hint  sheet  to  help  you  figure  out 
solutions;  in  Zorro,  you're  "on  your  own. 

Good  as  they  are,  though,  neither 
game  is  perfect.  Zorro  could  benefit 
from  a  hint  sheet  of  its  own — even  with 
a  good- quality  color  monitor  it's  diffi- 
cult to  tell  what  some  of  the  objects  are. 
One  screen  has  something  that  looks 
like  (but  surely  isn't?)  a  Coca-Cola  bot- 
tle. A  lantern,  perhaps?  A  club?  We 
aren't  sure. 

The  Goonies  needs  a  way  to  allow  a 
player  to  practice  on  upper-leve! 
screens  without  going  through  all  the 
lower  ones.  It  takes  some  20  minutes  of 
playing  time  to  get  to  the  last  levels; 
you  arrive  with  only  one  or  two  lives 
left  and  promptly  get  zapped.  That's 
acceptable  at  an  arcade  where  the  real 


object  is  to  entice  you  to  spend  another 
quarter,  but  in  a  home  computer  game, 
it  can  be  frustrating.  It  would  be  nice  to 
have  an  option  similar  to  the  one  in 
Lode  Runner  which  allows  you  to  play 
on  any  level  you  wish,  but  prevents  you 
from  setting  an  official  high  score  with- 
out progressing  through  the  levels  in 
proper  order.  Of  course,  high  scores 
aren't  much  of  a  consideration  in  The 
Goonies  or  Zorro,  since  neither  game 
saves  these  scores — another  minor  flaw. 

One  final  quibble  concerns  the  lack 
of  an  option  for  keyboard  control,  par- 
ticularly in  the  Apple  version.  Many  a 
white-collar  computer  runs  games  dur- 
ing lunch  hour,  but  wouldn't  dare  be 
caught  with  anything  so  unprofessional 
as  a  joystick  hanging  out  of  its  side. 
Most  Apple  games  have  a  keyboard 
option  for  this  reason. 

Overall,  however,  The  Goonies  and 
Zorro  are  attractive  games — fun,  inter- 
esting, and  entertaining.  Due  to  the  lev- 
el of  difficulty,  they're  not  appropriate 
for  children  under  ten,  but  older  kids 
and  adults  will  have  a  good  time  with 
them. 

Zorro 

The  Goonies 

Datasoft/IntelliCreations,  Inc. 
19808  Nordhoff  Place 
Chatsworth,  C4  91311 
Commodore  and  Atari  versions  529.95 
Apple  versions  $39.95 


Moebius:  The  Orb  Of 
Celestial  Harmony  For  Apple 


James  V.  Trunzo 

Requirements:  Apple  Il-series  computer 
with  at  least  64K  RAM  and  a  disk  drive. 
Commodore  6i/128  version  scheduled  for 
release  by  July. 

Fresh  on  the  heels  of  the  celebrated 
release  of  Ultima  JV,  Origin  Systems 
has  produced  yet  another  program 
worth  raving  about.  Moebius:  The  Orb  of 
Celestial  Harmony  capitalizes  on  the 
current  popularity  of  ninjas  by  casting 
the  player  as  a  youthful  martial  arts 
disciple  on  a  trip  through  an  oriental 
world  full  of  danger  and  excitement. 

Moebius  combines  all  the  familiar 
elements  of  a  computer  role-playing 
game  with  an  arcade-style  combat  sys- 
tem that's  both  challenging  and  func- 
tional. That  is,  the  arcade-style  combat 
wasn't  included  merely  to  show  off  the 
program's  superior  graphics.  Your  ninja 
disciple  must  become  proficient  with 
both  a  sword  and  his  bare  hands  to 
defeat  enemies  and  gain  experience 
points  that  heighten  various  attributes. 


The  theme  of  Moebius  is  simple. 
After  learning  all  he  could  from  his 
ninja  masters,  a  wayward  disciple 
named  Kaimen  stole  the  Orb  of  Celes- 
tial Harmony.  This  act  has  brought 
much  suffering  to  the  land  of  Khantun. 
Kaimen  has  set  himself  up  as  supreme 
warlord  and  is  conducting  a  reign  of 
terror.  He  has  imprisoned  the  Holy 
Ones,  replacing  them  with  his  own  evil 
monks.  Monsters  roam  the  land  and 
infest  the  waters  of  Khantun.  A  savior  is 
needed — a  warrior  who  has  devoted 
his  life  to  Moebius  and  who  has  trained 
with  the  Sword  Master,  the  Martial  Arts 
Master,  and  the  Zen  Master  (for  all  is 
not  won  through  force  of  arms).  You  are 
that  savior,  the  ninja  warrior. 

Protect  Your  Karma 

Moebius  employs  a  number  of  single- 
keystroke  commands,  much  like  other 
Origin  games  such  as  Ultima  and  its 
sequels.  Your  commands  are  varied: 
You  can  communicate  with  the  many 
characters  you  encounter  during  your 
travels  {even  the  skeletons  of  the  vic- 
tims of  Kaimen — if  you  know  magic). 


A  typically  ominous  screen  from 
Moebius:  The  Orb  of  Celestial 
Harmony. 

swing  your  sword  to  cut  vegetation  that 
blocks  your  way,  use  an  item  in  your 
inventory,  throw  a  shuriken,  and  much 
more. 

The  game  is  made  even  easier  to 
play  by  the  use  of  windowing.  Win- 
dows often  pop  up  on  the  main  screen 
to  offer  various  options.  For  example, 
pressing  the  C  key  to  communicate 
opens  a  window  and  gives  you  the 
choice  of  asking  a  character  for  help,  to 
follow  you,  to  stay  and  wait  for  you,  or 
to  go  away. 

Much  thought  is  required  to  play 
Moebius  well.  The  mystery  and  intrigue 
of  the  Orient  permeate  the  game,  and 
virtuous  behavior  is  often  rewarded. 
You  must  think  of  others  before  your- 
self to  be  successful  and  preserve  the 
purity  of  your  Karma  (very  important). 

Furthermore,  strategy,  planning, 
and  quick  thinking  are  a  must.  Poor 
villagers  are  afraid  of  men  carrying 
swords  and  are  averse  to  helping  them; 
yet,  hungry  tigers  cannot  be  fought  off 
with  your  bare  hands.  It's  up  to  you  to 
decide  when  to  arm  yourself  and  when 
to  trust  in  your  karate  skills. 

Tiger  Teeth  And  Panda  Hair 

The  realm  of  magic  is  not  ignored, 
either.  In  Moebius,  however,  magic 
works  a  little  differently  than  in  dun- 
geon adventure  games.  Magic  requires 
a  strong  mind,  so  you  must  fast  and 
chant  special  mantras  to  activate  such 
spells  as  Speak  with  the  Dead,  Water- 
walk,  or  Cure  Sickness.  Likewise,  your 
mind  must  be  clear  to  divine  the  nature 
of  artifacts.  When  this  magic  is  com- 
bined with  another  component  (tiger 
teeth,  beetle  pincers,  condor  feathers, 
etc.),  you  can  teleport,  use  ventrilo- 
quism, cause  paralysis,  and  invoke 
many  other  charms.  Incidentally,  the 
magical  components  must  be  found 
and  then  either  purchased  or  earned. 
To  get  panda  hair,  for  example,  you 
must  first  trap  the  bear. 

Moebius  embodies  its  own  unique 
playing  style  and  feel,  and  it  gives  the 
player  an  unmistakable  sense  of  the  Far 
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East  and  Zen  philosophy.  As  a  pro- 
gramming effort,  it  equals  anything  on 
the  market  today:  graphics  are  top- 
notch,  ranging  from  full-screen  images 
to  highly  detailed  temples;  onscreen  in- 
structions and  help  are  easy  to  use  and 
aid  in  play;  and  the  challenge  of  solving 
Moebius  ensures  many  hours  of  enjoy- 
ment as  you  travel  through  the  realms 
of  Earth,  Water,  Air,  and  Fire  to  find 
and  reclaim  the  Orb  of  Celestial 
Harmony. 

Moebius:  The  Orb  of 

Celestial  Harmony 

Origin  Systems,  Inc. 

Distributed  by  Electronic  Arts 

2755  Campus  Drive 

San  Mateo,  CA  94403 

$59.95  ® 
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Subscription 
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COMPUTE'S 

Author  Guide 


Most  of  the  following  suggestions  serve  to  improve 
the  speed  and  accuracy  of  publication,  COMPUTE!  is 
primarily  interested  in  new  and  timely  articles  on  the 
Commodore  64/128,  Atari,  Apple,  IBM  PC/PCjr, 
Amiga,  and  Atari  ST.  We  are  much  more  concerned 
with  the  content  of  an  article  than  with  its  style,  but 
articles  should  be  clear  and  well-explained. 

The  guidelines  below  will  permit  your  good  ideas 
and  programs  to  be  more  easily  edited  and  published: 

1.  The  upper  left  corner  of  the  first  page  should 
contain  your  name,  address,  telephone  number,  and 
the  date  of  submission. 

2.  The  following  information  should  appear  in  the 
upper  right  comer  of  the  first  page.  If  your  article  is 
specifically  directed  to  one  make  of  computer,  please 
state  the  brand  name  and,  if  applicable,  the  BASIC  or 
ROM  or  DOS  version(s}  involved.  In  addition,  please 
indicate  the  memory  requirements  of  programs. 

3.  The  underlined  title  of  the  article  should  start 
about  2/3  of  the  way  down  the  first  page. 

4.  Following  pages  should  be  typed  normally,  ex- 
cept that  in  the  upper  right  comer  there  should  be  an 
abbreviation  of  the  title,  your  last  name,  and  the  page 
number.  For  example:  Memory  Map/Smith/2. 

5.  All  lines  within  the  text  of  the  article  must  be 
double-  or  triple-spaced.  A  one-inch  margin  should  be 
left  at  the  right,  left,  top,  and  bottom  of  each  page.  No 
words  should  be  divided  at  the  ends  of  lines.  And 
please  do  not  justify.  Leave  the  lines  ragged. 

6.  Standard  typing  paper  should  be  used  (no  eras- 
able, onionskin,  or  other  thin  paper)  and  typing 
should  be  on  one  side  of  the  paper  only  (upper-  and 
lowercase). 

7.  Sheets  should  be  attached  together  with  a  pa- 
per clip.  Staples  should  not  be  used. 

8.  If  you  are  submitting  more  than  one  article, 
send  each  one  in  a  separate  mailer  with  its  own  tape 
or  disk. 

9.  Short  programs  (under  20  lines)  can  easily  be 
included  within  the  text.  Longer  programs  should  be 
separate  listings.  It  is  essetttial  that  we  have  a  copy  of 
the  program,  recorded  twice,  on  a  tape  or  disk.  If  your 
article  was  written  with  a  word  processor,  we  also  ap- 
preciate a  copy  of  the  text  file  on  the  tape  or  disk. 
Please  use  high-quality  10  or  30  minute  tapes  with 
the  program  recorded  on  both  sides.  The  tape  or  disk 
should  be  labeled  with  the  author's  name,  the  title  of 
the  article,  and,  if  applicable,  the  BASIC/ROM/DOS 
version(s).  Atari  tapes  should  specify  whether  they  are 
to  be  LOADed  or  ENTERed.  We  prefer  to  receive  Ap- 
ple programs  on  disk  rather  than  tape.  Tapes  are  fairly 
sturdy,  but  disks  need  to  be  enclosed  within  plastic  or 


cardboard  mailers  (available  at  photography,  station- 
ery, or  computer  supply  stores), 

10.  A  good  general  rule  is  to  spell  out  the  num- 
bers zero  through  ten  in  your  article  and  write  higher 
numbers  as  numerals  (1024).  The  exceptions  to  this 
are:  Figure  5,  Table  3,  TAB(4),  etc.  Within  ordinary 
text,  however,  the  zero  through  ten  should  appear  as 
words,  not  numbers.  Also,  symbols  and  abbreviations 
should  not  be  used  within  text:  use  "and"  (not  &), 
"reference"  (not  ref,),  "through"  (not  thru). 

11.  For  greater  clarity,  use  all  capitals  when  refer- 
ring to  keys  (RETURN,  TAB,  ESC,  SHIFT),  BASIC 
words  (LIST,  RND,  GOTO),  and  three  languages 
(BASIC,  APL,  PILOT).  Headlines  and  subheads 
should,  however,  be  initial  caps  only,  and  emphasized 
words  are  not  capitalized.  If  you  wish  to  emphasize, 
underline  the  word  and  it  will  be  italicized  during 
typesetting. 

12.  Articles  can  be  of  any  length — from  a  single- 
line  routine  to  a  multi-issue  series.  The  average  article 
is  about  four  to  eight  double-spaced,  typed  pages. 

13.  If  you  wajit  to  include  photographs,  they 
should  be  either  5X7  black  and  white  glossies  or 
color  slides. 

14.  We  do  not  consider  articles  which  are  submit- 
ted simultaneously  to  other  publishers.  If  you  wish  to 
send  an  article  to  another  magazine  for  consideration, 
please  do  not  submit  it  to  us. 

15.  COMPUTE!  pays  between  $70  and  $800  for 
published  articles.  In  general,  the  rate  reflects  the 
length  and  quality  of  the  article.  Payment  is  made 
upon  acceptance.  Following  submission  (Editorial  De- 
partment, COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403)  it  will  take  from  four  to  eight 
weeks  for  us  to  reply.  If  your  work  is  accepted,  you 
will  be  notified  by  a  letter  which  will  include  a  con- 
tract for  you  to  sign  and  return.  Rejected  manuscripts 
are  returned  to  authors  who  enclose  a  self-addressed, 
stamped  envelope. 

16.  If  your  article  is  accepted  and  you  have  since 
made  improvements  to  the  program,  please  submit  an 
entirely  new  tape  or  disk  and  a  new  copy  of  the  arti- 
cle reflecting  the  update.  We  cannot  easily  make  revi- 
sions to  programs  and  articles.  It  is  necessary  that  you 
send  the  revised  version  as  if  it  were  a  new  submis- 
sion entirely,  but  be  sure  to  indicate  that  your  submis- 
sion is  a  revised  version  by  writing,  "Revision"  on  the 
envelope  and  the  article. 

17.  COMPUTE!  does  not  accept  unsolicited  product 
reviews.  If  you  are  interested  in  serving  on  our  panel 
of  reviewers,  contact  the  Review  Coordinator  for 
details. 
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Screen  Handler  64 


This  useful  utility  adds  some  word 
processor-like  features  to  the  Commo- 
dore 64's  full-screen  editor  for  use 
within  your  own  BASIC  programs.  It 
also  works  on  the  Commodore  128  in 
64  mode. 


Although  it's  often  taken  for  grant- 
ed, the  Commodore  64  has  one  of 
the  best  full-screen  editors  in  the 
business.  You  can  easily  move  the 
cursor  anywhere  on  the  screen, 
type  characters,  and  make  changes 
wherever  you  like.  Not  all  com- 
puter owners  are  so  lucky. 

As  good  as  it  is,  however,  there 
are  some  things  that  the  Commo- 
dore 64's  excellent  screen  editor 
can't  do.  If  you  were  to  draw  up  a 
wish  list  for  a  new  screen  editor  that 
would  be  active  when  a  BASIC  pro- 
gram requests  keyboard  input,  it 
might  include  these  features; 

•  Switchable  insert  mode. 

•  Delete  key  that  draws  text  into  the 
cursor. 

•  Key  to  move  the  cursor  to  the 
beginning  of  input. 

•  Key  to  move  the  cursor  to  the  last 
character  typed. 

•  Key  to  erase  text  from  the  cursor  to 
the  end  of  the  line. 

That's  quite  an  impressive  list, 
but  there's  one  more  feature  that's 
also  desirable:  a  special  key  to  clear 
out  a  single  field.  In  this  context,  a 
field  is  simply  a  screen  area  of  a 


Jeffrey  Bailey 


certain  size  in  which  the  user  can 
type  characters.  For  instance,  let's 
say  your  BASIC  program  needs  to 
request  the  date  in  the  format 
mm/dd/yy.  Each  two-digit  entry 
could  be  defined  as  a  field  that's 
two  characters  in  length.  Ideally, 
the  user  wouldn't  need  to  type  the 
/  character  between  each  field.  As 
each  two-digit  entry  was  complet- 
ed, the  cursor  would  move  auto- 
matically from  the  end  of  one  field 
to  the  beginning  of  the  next. 

To  take  this  concept  even  fur- 
ther, how  about  setting  up  multiple 
fields  at  different  spots  on  the 
screen?  If  each  field  works  as  we've 
described,  it  wouldn't  be  necessary 
to  press  RETURN  after  typing  data 
in  each  field.  During  the  entry  pro- 
cess, the  user  could  move  freely 
from  field  to  field  until  each  one  is 
filled  in.  Then  your  program  could 
read  the  entire  screenful  of  data  at 
once. 

It  may  sound  like  a  tall  order, 
but  "Screen  Handler  64"  makes  all 
of  this  possible. 

Entering  The  Program 

Although  Screen  Handler  64  is 
written  completely  in  machine  lan- 
guage, no  knowledge  of  machine 
language  is  needed  to  use  it.  To 
type  in  Screen  Handler  64,  simply 
use  the  "MLX"  machine  language 
entry  program  listed  elsewhere  in 
this  issue.  Follow  the  MLX  direc- 
tions carefully.  Here  are  the  ad- 
dresses you  need  for  MLX: 


starting  address:  COOO 
Ending  address:  C397 

You  can  then  begin  entering  the 
Screen  Handler  data  from  Program 
1.  When  you  finish  entering  all  the 
data,  be  sure  to  use  the  MLX  Save 
option  to  store  at  least  one  copy  on 
tape  or  disk. 

To  load  Screen  Handler  into 
memory,  use  LOAD"//Iefiame" ,S,1 
for  disk  or  l£iM)" filename" ,1,1  for 
tape.  Although  Screen  Handler  is 
less  than  IK  in  length,  it  uses  all  of 
the  free  memory  from  locations 
49152-53247,  so  you  shouldn't  do 
anything  to  change  those  locations 
while  the  program  is  active.  In  ad- 
dition, you  should  avoid  changing 
the  contents  of  memory  locations 
251-255,  which  Screen  Handler 
uses  as  well. 

Starting  Screen  Handler 

It's  quite  simple  to  incorporate 
Screen  Handler  into  your  BASIC 
programs.  After  the  machine  lan- 
guage is  in  memory,  set  up  a  table 
of  the  fields  you  want,  then  call 
Screen  Handler  with  a  SYS  com- 
mand. Screen  Handler  takes  care  of 
everything  else,  including  moving 
the  input  data  into  string  variables. 
Getting  started  is  actually  a  three- 
stage  process.  Let's  look  at  each  one 
in  turn. 

The  first  step  after  loading 
Screen  Handler  is  to  include  the 
statement  SYS  49152  in  your 
BASIC  program.  This  statement, 
without  any  extra  parameters. 
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clears  the  field  table  that  Screen 
Handler  uses  internally. 

The  next  step  is  to  set  up  each 
individual  field,  a  job  that's  also 
done  with  a  SYS.  Here's  the  general 
format  for  the  command; 
SYS  4n55,x,y,lengtk,stnngS 

Notice  that  this  SYS  statement 
is  followed  by  four  parameters.  The 
first  two,  X  and  y,  stand  for  horizon- 
tal and  vertical  screen  locations, 
and  can  be  either  numbers  or  nu- 
meric variables.  The  x  value  must 
be  in  the  range  0-39,  and  y  must  be 
in  the  range  0-24. 

The  next  parameter,  length,  de- 
fines the  length  of  the  field  in  char- 
acters. The  length  parameter  can  be 
any  numeric  value  from  1-254. 
However,  keep  in  mind  that  the 
field  must  not  be  so  long  that  the 
screen  scrolls  when  data  is  typed.  If 
this  happens.  Screen  Handler  can't 
read  the  input  correctly  (because 
the  data  has  moved  up  one  or  more 
lines). 

The  final  parameter,  string$, 
can  be  any  type  of  string  variable, 
from  a  simple  string  such  as  A$  to 
an  array  element  like  FI$(6).  Multi- 
dimensional arrays  like  FI$(8,2)  can 
also  be  used.  Screen  Handler  auto- 
matically takes  the  information 
from  the  screen  and  puts  it  into  this 
string  variable.  Note  that  if  the  in- 
put data  is  shorter  than  the  field 
length  (if  the  user  types  DOG  in  a 
ten-character  field,  for  instance). 
Screen  Handler  fills  the  remainder 
of  the  string  with  spaces. 

Once  you've  defined  a  string 
within  a  Screen  Handler  field,  you 
should  not  redefine  the  string  until 
after  Screen  Handler  has  been 
called  (see  below).  This  is  because 
Screen  Handler  sets  up  pointers  to 
BASIC'S  string  storage  space.  If  you 
suddenly  redefine  a  string,  it  may 
move  in  memory,  confusing  the 
program.  After  Screen  Handler  has 
been  called  and  input  has  been  en- 
tered from  the  keyboard,  it  is  safe  to 
modify  the  string. 

A  Better  Way  To  INPUT 

Screen  Handler  permits  you  to  de- 
fine as  many  as  50  different  fields. 
When  all  of  the  fields  are  set  up,  it's 
time  to  call  Screen  Handler.  The 
statement  SYS  49158  tells  Screen 
Handler  to  begin  receiving  input 
from  the  fields  you  have  defined. 


At  this  point,  the  up  and  down 
cursor  keys  move  the  cursor  from 
field  to  field,  not  from  line  to  line  as 
usual.  The  RETURN  key  has  the 
same  effect  as  cursor  down,  moving 
you  forward  (down)  to  the  next 
field.  The  left  and  right  cursor  keys 
work  normally,  but  only  within  a 
field.  That  is,  these  keys  move  the 
cursor  left  and  right  inside  the  field 
as  usual.  But  to  move  to  another 
field,  you  must  press  cursor  up/ 
down  or  RETURN. 

Pressing  CLR/HOME  moves 
the  cursor  to  the  beginning  of  the 
current  field.  SHIFT-CLR/HOME 
erases  the  field  and  homes  the  cur- 
sor. The  INST/DEL  key  works  nor- 
mally, but  acts  only  on  the  current 
field.  The  CTRL-I  key  combination 
(hold  down  CTRL  and  press  I) 
switches  Screen  Handler  in  and  out 
of  insert  mode.  The  border  color 
changes  to  indicate  when  insert 
mode  is  active. 

Pressing  CTRL-D  deletes  text 
by  pulling  it  into  the  present  cursor 
position.  CTRL-E  erases  every 
character  from  the  cursor  to  the  end 
of  the  field.  To  move  the  cursor  to 
the  last  character  typed  in  a  field, 
press  CTRL-N. 

That  takes  care  of  the  entire 
wish  list  except  for  the  most  impor- 
tant part — storing  all  of  the  input 
data  in  variables.  When  all  of  the 
data  is  entered  in  all  of  the  fields, 
press  SHIFT-RETURN.  Screen 
Handler  enters  the  entire  screen  at 
once. 

Practical  Demonstration 

Program  2,  "Screen  Handler 
Demo,"  is  a  simple  BASIC  program 
that  illustrates  how  to  use  Screen 
Handler.  Here's  an  explanation  of 
how  it  works. 

Line  10  loads  Screen  Handler 
from  disk,  and  lines  20-60  create  a 
screen  display  that  outlines  the 
fields  visually.  The  DATA  state- 
ment in  line  70  contains  x,  y,  and 
lengthwalvies  for  defining  the  fields. 
Line  90  clears  the  field  table  and 
prepares  Screen  Handler  for  use. 
Lines  100-140  set  up  a  simple  loop 
to  read  in  the  values  and  set  them 
up  in  Screen  Handler's  table. 

Note  that  although  an  array  is 
used  in  line  130,  the  program  con- 
tains no  DIM  statement.  If  BASIC 
encounters  an  array  that  was  not 
previously   dimensioned,   it  auto- 


matically dimensions  the  array  for 
11  elements  (numbered  0-10). 
Since  Screen  Handler  uses  some  of 
BASIC'S  built-in  routines,  this  fea- 
ture is  available  as  usual.  However, 
it  would  be  better  programming 
pracdce  to  explicitly  dimension  the 
array  variables — and  the  DIM  is  re- 
quired if  you  want  to  use  more  than 
1 1  array  elements.  In  this  case,  the 
DIM  statement  must  precede  the 
SYS  49155  statement  that  assigns 
the  array  element  to  a  field.  In  Pro- 
gram 2,  the  DIM  statement  could  be 
placed  anywhere  before  line  100. 

Line  160  tells  Screen  Handler 
to  start  accepting  data.  Again,  no- 
tice that  the  string  variables  must 
not  be  modified  between  the  time 
that  the  fields  are  defined  (line  130) 
and  Screen  Handler  is  called  (line 
160).  Once  the  data  has  all  been 
entered  and  you  press  SHIFT-RE- 
TURN to  accept  the  fields,  lines 
170-210  clear  the  screen  and  print 
out  the  information.  At  this  point  in 
the  program,  it  becomes  safe  to 
modify  the  string  variables  if  needed. 

With  a  little  bit  of  practice,  you 
can  write  very  professional-  pro- 
grams in  BASIC  with  Screen  Han- 
dler's help.  Experiment  with 
programs  of  your  ovm. 
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HPW  TO  OftDER:  Oi 


>ir  Bi  milt   p'l  H  MC  Viu^Amii'tDD. 
nido  120.  SJ  Ini  Lhlpc-riK.  ^ii  If  COD 
ihtpplnx  tl.  0'ptf\  kitOUrtlk  UrMI  la-r  tcliaolt  kith  I.04J 

ind  STPItET  •dri'***-  i-id  <"-  flftEC*r*LOC 


UNITECH 


IN  HASSf&w)  UNITECH 
in  U  HUlilEf  S1RIET 
CAKSItWtE  H(91I4I 


(800)343-0472 


FREE 

COLOR  MONITOR 


With  purchase  ol  Computer 

SPECIALIST  IN 

HOME  AND  BUSINESS  COMPUTERS 

612-938-3161 

821  Mam  SirMl.  Hopkins.  MN 


•  With  Hub  Rings 

•  Write  Protect  Tabs 
1    ^^^^           •  Envelopes 
I  ^^^          •  User  ID  Labels 
I^Pk^V           •  In  Faclory  Sealed 

^'^r  Pol»  Packs  olio 

(YOU  GET  EVERYTHING  BUT  THE  BOX) 
Prices  are  per  Disk 


OTY 

50 

100 

50D 

laoo 

SSDD 

.59 

.53 

.50 

.47 

DSOD 

.62 

.58 

.55 

.52 

LIbrity  Can  Holds  IS  Disktlles Only  il.oo  I 

plus  UK  S»H 

The  100  Flit Only  S10,95  plus  S2  00  SiH 

100"/.  ERROR  FREE  —  LIFETIME  WARRANTY 
Mm.  order  S25  00  Add  I0°/o  lor  less  than  BO 
diskettes.  Shipping  and  Handling:  S4.00  per  100 
disketles  Reduced  shipping  for  larger  quanti- 
ties CO  D  add  %i  00  Cash  or  certifieo  check 
Conlinenlal  USA  ^^  cOD.  "T~ 

Precision  Data  Products 

I*  [)    HiiA  Ji}t>^.  lirjnij  kapidv.  SI  I  4'J^IK 

((.|(.|45;-.U57«  Mifbifjn  I -suo-r.3;.:JM 
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P 


J 


C100:9e 

C108585 

C110:FF 

CUB:  90 

C120:0F 

C128:65 

C130:85 

CI  38: BE 

0140:60 

C148i4C 

C150S66 

C158:68 

C160:05 

C168!D0 

C170:C9 

C178:C1 

C180:68 

C188:05 

C190;D0 

C198:EE 

C1A0:C6 

ClAa:9F 

C1B0!C2 

C1B8:68 

ClC0:0a 

C1C8:C0 

C1D0:68 

C1D8:00 

C1E0:38 

ClE8sA7 

C1F0:71 

C1F8!C0 

C200:FB 

C208:A9 

C210:91 

C2ia:0E 

C220:93 

02  28:40 

C230!D2 

C2  38:FF 

C240:28 

C248!C1 

C250:9F 

C258:AF 

O260:A5 

C268:A9 

C270:68 

C278:43 

C280:88 

0288:00 

C290:9E 

0298:84 

C2A0:C8 

02AB:43 

C2B0:01 

02  88 :AE 

C2C0:D0 

C2C8!A5 

C2D0:O0 

C2D8:20 

C2E0:A4 

O2E8:20 

C2F0:4C 

C2F8:AA 

0300 :A7 

C308:B1 

C310:C4 

C31G!FD 

O320:F0 

C3  28:C9 

C330:C9 

C3  38:04 

C340:60 

0348:18 

0350:20 

C358:60 

0360 :A4 

0368:29 

C370:D0 

C378:A8 

0380:02 

C388s20 

C390:E)0 


48  8A 
B5  68 
F0  0F 
02  E6 
01  68 
FF  90 
BD  A5 
A5  B5 
8A  C9 
DE  C2 
4C  93 
68  40 
68  68 
06  68 
0D  D0 
C9  94 
68  40 
68  68 
18  A5 
20  D0 
B6  CE 
C0  C9 
A9  00 
68  4C 
20  41 
09  0E 
68  4C 
D0  05 
E9  05 
85  71 
03  C0 
A5  FD 
18  69 
A7.  85 
71  C8 
03  C9 
C0  A9 
9F  C0 
FF  4C 
98  09 
A8  60 
A5  B4 
A5  BD 
A4  A7 
9E  38 
38  E5 

68  60 
C2  A8 
Bl  AE 
FF  D0 
60  A0 
B5  Bl 
C8  C0 
C2  18 
Bl  9E 
88  91 
EF  88 

02  C9 
06  02 
A7  C2 
A7  20 
91  B4 
93  C0 
SD  0E 
A6  A8 
B4  20 
A9  D0 
F0  03 

03  CE 
20  B0 
40  B0 
18  69 
20  43 

69  02 
91  9E 
A6  A8 
A9  88 
C9  20 
01  88 
18  20 
68  35 
D2  FF 
F4  60 


D0 
91 


22 

68 


43  A9  00 
85  FF  A2 
A5  B4  IB 
B5  85  B4 
85  FF  A5 

02  E6  B5 
B5  18  69 
18  69  04 
93  D0  05 
09  13 
00  C9 
D5  CI  09 
40  F9  CI 
68  4C 
05  68 
D0  08  20 
9F  C0  09 
40  Ca  C2 
B6  D0  0A 

68  68  40 
20  D0  68 

04  D0  06 
60  C9  8D 
F3  02  C9 

03  68  68 
D0  E6  20 
9F  00  A5 

A5  FB  18 
85  FD  A0 

84  7  2  Bl 

05  D0  F7 
05  FB  D0 

05  85  FD 
71  84  7  2 
C0  05  00 
AA  D0  01 
01  05  02 

06  02  A9 
9F  C0  38 
28  90  04 
20  35  02 

85  9E  A5 
85  AE  A5 
A6  AS  20 
E5  B4  85 
FF  09  02 
38  E9  02 
Bl  9E  C8 
08  91  AE 
SF  C8  A9 

00  A9  DA 
B4  29  7F 
18  D0  F4 

69  02  85 
88  91  9E 

AE  08  ce 

A9  20  91 

01  00  03 
A9  90  20 
4C  9F  00 

00  01  A0 
C8  C4  A9 
A5  FB  85 

03  20  F9 
20  00  01 
26  03 
F4  20 
4C  FF  02 
20  D0  60 

04  18  69 

01  60  C9 
20  60  18 

02  C9  00 
85  FF  A0 
08  04  FF 
A4  A7  20 
Bl  B4  C0 
F0  F5  08 
93  48  A4 
F0  FF  A9 
FF  A0  00 

03  E6  02 
00  00  00 


91 
F9 


85  U4 

00  E4  90 

69  28  0D 

E8  40  D9 

B4  18  19 

85  B4  5E 

D8  85  93 
85  B5 
68  68 
05  68 

D0  05  D4 

11  D0  39 

C9  9D  5A 

02  60  3A 
40  F9 
77  02 
14  D0 

09  09  68 

E6  B6  D5 

9F  C0  B0 

68  40  56 
20  A7  20 
D0  05  31 
05  D0  6B 
40  9F  Dl 

59  03  10 
FD  C9  88 

69  05  A3 
00  A9 
FD  91 
40  93 
02  A9 
A0  00  6C 
Bl  FD  63 
F7  AD 

60  40 

90  03 
9D  20 
20  F0 
38  E9  8E 
20  00  07 
B5  85 
BE  35 
00  01  05 
FF  AS  27 
B0  03  48 
60  20  0C 

91  9E  5A 
88  88  F9 
20  91  46 
85  B4  0A 
91  B4  6E 
60  20  91 
FF  A0 
C8  Bl 
04  FF  07 
9E  60  3B 
40  9F  85 
02  FF  56 
A6  A8  6B 

00  A9  E0 
D0  F9  6E 
FD  A9  8F 
CI  A4  3A 
A0  00  64 
AA  08  7E 

01  A5  DF 
A5  B6  0D 
29  7F  96 
40  60  3A 
60  B0  6E 
69  40  6D 
F0  10  D4 
00  A9  FA 
D0  F9  6E 
00  CI  98 
00  F0  6A 
04  A9  10 
A7  A6  06 


C4 


D8 

»0 
EC 


FD 
61 
FB 


10 
KF 
5A 
33 


EB 
E0 
31' 
52 
BA 


83 
2E 


E0 
C9 


01 
A9 


85  9B 

ID  49 

04  FF  2A 

00  00  09 


Program  2:  Screen  Handler 
Demo 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  In  this  issue  of  computei. 

PB    10    IF    LD=0    THEN    LD=1:L0AD    " 

SCEIEEN    HANDLER  ",  8  , 1 
SP    20    PRINT    "{CLR}":PRINT    "*** 
SCREEN    HANDLER    ***"sPRI 

NT 
BQ    30    PRINT    "NAME: (5    SPACESlt 

(20    SPACES  J ]":PRINT 
HC    40    PRINT     "ADDRESS: 

{2    SPACES}: [20    SPACES)]" 

SPRINT 
PG    50    PRINT    "CITY/ST: 

(2    SPACES) [{15    SPACES)] 

{2    SPACES) [{2    SPACES}]": 

PRINT 
MS    60    PRINT    "PHONE: (4    SPACES}! 

-([3    SPACES  J) -[3    SPACES) 

-[4    SPACES)" 
El^    70    DATA    11,3,20,11,5,20,11, 

7,15,30,7,2,13,9,3,18,9, 

3,22,9,4 
RK  30  REM  ***  CLEAR  TABLE  *** 
CA  90  SYS  49152 
KM  100  FOR  A=l  TO  7 
MR  110  READ  X,Y,L 
DQ  120  REM  ***  SET  UP  TABLE  ** 

JB  130  SYS  49155, X,Y,L,A9(A) 

MM  140  NEXT 

QS  150  REM  ***  CALL  SCREEN  HAN 

DLER  *** 
XD  160  SYS  49158 
CJ  170  PRINT  "{CLR}" 
EB  180  PRINT  A$(l) 
QA  190  PRINT  A$(2) 
SQ  200  PRINT  A?(3)f",  ",-A?{4) 
SJ  210  PRINT  "l-C.-AStS);"  )-"; 

A5(6);--";A$C7)  @ 


COMPUTE! 

TOLL  FREE 

Subscription 

Order  Line 

1-800-247-5470 

InIA  1-800-532-1272 


Attention  Programmers 

COMPUTE!  magazine  is  currentiy 
looking  for  quoiity  aiticles  on 
Commodore,  Atari,  Appie, 
and  iBM  computers  (inciuding 
tine  Commodore  Amiga  and 
Atari  ST),  if  you  have  an 
interesting  liome  appiication, 
educationai  program, 
programming  utility,  or  gome, 
submit  it  to  COMPUTE!,  P.O. 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines." 
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Atari  Sound 
Development  System 


This  versatile  program  lets  you  design 
sounds  onscreen  with  a  joystick  and 
the  keyboard,  taking  advantage  of  vir- 
tually every  feature  built  into  the 
Atari's  sound  chip — including  some 
features  which  are  rarely  exploited. 
The  custom  sounds  can  then  be  saved 
on  disk,  played  back,  or  added  to  your 
own  BASIC  programs.  For  all  Atari 
400/800,  XL,  and  XE  computers  with 
at  least  40K  RAM  and  a  disk  drive. 

Ever  since  the  Atari  was  first  intro- 
duced in  1979,  its  sound  capabili- 
ties have  always  played  second 
fiddle  to  its  graphics.  In  fact,  even 
many  Atari  owners  are  unaware 
that  the  sound  chip  inside  their 
computer  has  switchable  high-pass 
filters,  optional  16-bit  frequency 
resolution,  and  an  adjustable  clock 
rate  for  modifying  the  frequency 
range.  Part  of  the  problem  is  that 
Atari  BASIC'S  SOUND  statement 
doesn't  begin  to  touch  these  capa- 
bilities; they're  accessible  only  with 
PEEK  and  POKE  or  machine 
language. 

The  three  programs  included 
here,  collectively  known  as  the 
"Atari  Sound  Development  Sys- 
tem," make  it  easier  for  you  to  take 
advantage  of  these  features — or  get 
acquainted  with  them  in  the  first 
place.  The  main  program,  "Sound 
Editor,"  is  a  utility  that  puts  the  full 
range  of  Atari  sound  capabilities  at 
your  command  with  keyboard  and 
joystick  controls.  It  also  lets  you 
design  sounds  with  ADSR  enve- 
lopes— a  feature  that,  as  weTl  see  in 
a  moment,  isn't  even  built  into  the 
Atari  sound  chip. 

Two    additional    programs. 


Michaei  Ryder 

"Sound  Player"  and  "Sound  Pro- 
gram Writer,"  let  you  play  back  the 
sounds  you  create  with  the  Sound 
Editor  or  automatically  generate 
stand-alone  programs  that  can  be 
converted  into  subroutines  of  your 
own  BASIC  programs. 

Developing  Sounds 

To  get  started,  type  in  and  save 
Program  1  below.  The  Sound  Edi- 
tor is  the  main  program  that  lets 
you  develop,  modify,  save,  and 
load  sounds. 

When  you  type  RUN,  at  first 
you'll  see  nothing  but  a  black 
screen  and  hear  a  few  beeps.  The 
beeps  signal  that  everything  is  run- 
ning normally  while  the  Sound  Edi- 
tor sets  itself  up.  After  a  short  delay, 
you'll  see  the  Main  Menu,  which 
leads  to  several  submenus  for  vari- 
ous functions: 

MAIN  MENU 

1 — Develop  sounds 

2— Save/Load/Del/Dir  sound  envelopes 

3-EXIT  PROGRAM 

Your  choke  (1-3):  7 

Option  1  is  the  gateway  into 
the  main  part  of  the  program.  Op- 
tion 2  leads  to  the  Input/Output 
Menu.  Option  3  stops  the  program 
and  exits  to  BASIC.  Let's  tackle  op- 
tion 1  first,  since  that's  the  meat  of 
the  Sound  Editor. 

When  you  press  1,  the  Sound 
Menu  pops  up; 

SOUND  MENU 
1 — Envelope  Editor,  Voice  0 
2— Envelope  Editor,  Voice  1 
3 — Envelope  Editor,  Voice  2 
4 — Envelope  Editor,  Voice  3 
5— Play  Voices  Menu 
6— Clear  all  voices 
7— MAIN  MENU 
Your  choice  (1-7):  7 


Options  6  and  7  are  fairly  obvi- 
ous: 6  resets  all  four  voices,  discard- 
ing any  existing  values  that  may 
have  been  entered,  and  7  returns  to 
the  Main  Menu  shown  above.  The 
other  options  let  you  design,  modi- 
fy, and  play  sounds  in  numerous 
ways. 

Options  1-4  let  you  use  a  joy- 
stick to  design  individual  sound  en- 
velopes for  any  of  the  four  voices. 
Each  Envelope  Editor  screen  shows 
a  graphic  display  of  the  current  en- 
velope and  also  indicates  the  pitch 
value  assigned  to  that  voice  (see 
photos).  Since  envelopes  aren't  ac- 
tually built  into  the  Atari  sound 
chip,  but  instead  are  handled  by 
this  program,  let's  backtrack  for  a 
moment  and  explain  how  they 
work. 

Attack  And  Retreat 

One  of  the  many  characteristics 
which  distinguish  different  sounds 
is  the  shape  of  their  ADSR  enve- 
lopes. ADSR  stands  for  attack,  decay, 
sustain,  and  release.  These  are  the 
four  stages  of  volume  changes  that 
occur  during  a  sound's  duration. 

Attack  is  the  initial  rise  in  vol- 
ume to  the  sound's  peak  volume. 
Decay  is  the  decrease  in  volume 
that  follows  the  peak.  Sustain  is  the 
period  in  which  the  sound  contin- 
ues to  be  audible.  And  release  is  the 
final  drop  in  volume  to  silence. 
Photo  1  is  a  typical  ADSR 
envelope. 

By  changing  the  shape  of  this 
envelope,  you  can  vary  the  effect  of 
the  sound.  For  instance,  a  percus- 
sive sound  has  an  almost  instanta- 
neous attack,  very  short  decay  and 
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sustain,  and  a  fairly  sharp  release 

(Photo  2). 

If  you  pluck  a  guitar  string  and 
let  it  resonate,  the  attack  is  some- 


m«MTn«iti4MTaMin4s*7**aiiS«i 


Photo  1:  An  attack-decay-sustain-retease 
envelope  created  with  the  Sound  Editor. 


ri«(i  vain 


11»«»»T»M1»««»"»1***S»'»»****** 


Photo  2:  A  sharp  attack  and  fast  release 
is  typical  of  percussion  instruments. 


CHUELOPE     EDITOR 

for  voice  flO 
Pitch  valuci   243 


-  Listen 

-  Kenu 

;  ^  Chans*  Sound 
;  -  Clear  Bars 


1234567«90*234S67a»012345e7fl9(ll2a4S 


Photo  3:  Most  musical  instruments  have 
a  more  gentle  attack  and  release. 


CHtfELOI^r    eOXTOR 

for  voic*  a* 
Fitch  vaiuai   Z4X 


-  Wou 

-  c^ana*  soun4 

-  eiMi-  Sirs 


*i4BS7a»i»«H7a>ai»M«rMMti'B 


Photo  4:  This  envelope  makes  a  back- 
ward sound. 


what  less  steep  and  the  sustain/re- 
lease is  much  more  gradual  (Photo 
3). 

Since  most  real-world  sounds 
have  similar  envelopes,  sounds 
with  a  gradual  attack  and  a  rapid 
sustain /release  often  seem  back- 
ward and  artificial  (Photo  4). 

You  can  design  almost  any 
kind  of  ADSR  envelope  with  the 
Sound  Editor.  At  the  bottom  of  the 
Envelope  Editor  screen  for  each 
voice  is  a  joystick-controlled  cursor. 
By  pushing  the  joystick  left  or  right, 
you  can  move  the  cursor  horizon- 
tally to  pick  a  position  within  the 
envelope.  To  set  a  volume  level  for 
that  position,  press  the  joystick  but- 
ton, then  move  the  cursor  up  and 
down  with  the  stick.  When  the  cur- 
sor is  at  the  desired  level,  press  the 
joystick  button  again.  The  level  is 
marked  with  a  white  block,  and  you 
can  move  the  cursor  left  or  right 
again  to  pick  the  next  position. 

If  you  change  your  mind  and 
want  to  reset  a  volume  level  within 
the  envelope,  just  move  back  to 
that  position  with  the  joystick  and 
press  the  button  as  before.  You  can 
clear  out  the  entire  envelope  by 
pressing  C  (Clear  bars). 

Other  keyboard  commands 
available  on  the  Envelope  Editor 
screens  are  L  i(Listen  to  the  enve- 
lope), M  (return  to  the  Sound 
Menu),  and  S  (change  Sound).  If 
you  finish  one  voice's  envelope  and 
want  to  design  an  envelope  for  a 
different  voice,  press  M  for  the 
Sound  Menu,  then  select  1-4  to 
switch  to  the  other  voice's  Enve- 
lope Editor. 

Controlling  Sounds 

When  you  press  S  (change  Sound) 
on  an  Envelope  Editor  screen,  you 
get  another  screen  that  offers  a 
wide  range  of  control  over  the 
POKEY  chip,  which  is  responsible 
for  Atari  sound.  Most  of  these  con- 
trols are  inaccessible  from  BASIC 
without  PEEK  and  POKE.  The  con- 
trol screen  displays  this 
information: 

Modify/Mix  Sounds 

PRESS  TRIGGER  TO  LISTEN  TO  ALL 

VOICES 

Switch  clock  from  64KHz  to  ISKHz  ;0 

Hi-pass  filter  on  ch.l,  clock  by  3  :0 

Hi-pass  filter  on  ch.O,  clock  by  1  :0 

Join  channels  3  and  2  :0 

Join  channels  1  and  0  :0 

Clock  channel  2  with  1.79  MHz  :0 


Clock  channel  0  with  1.79  MHz 

;0 

Change  from  17  to  9  bit  poly 

:0 

CHANNEL 

;0 

VOLUME 

:8 

DISTORTION 

:10 

FREQUENCY 

:243 

STATUS  (0/1) 

:ON 

—Press  X  to  Exit  Back 

to  Editor— 

Press  the  joystick  trigger  to 
play  the  voices;  press  it  again  to 
stop.  The  X  key  returns  you  to  the 
Envelope  Editor. 

The  other  features  on  the  con- 
trol screen  let  you  change  various 
POKEY  settings  for  the  voices.  At 
the  left  and  right  of  this  screen, 
you'll  notice  a  pair  of  pointers 
(greater-than  and  less-than  signs). 
You  can  move  the  pointers  up  and 
down  the  screen  with  the  A  and  Z 
keys,  respectively.  This  is  how  you 
select  a  certain  control  you  want  to 
change. 

The  first  eight  controls  (Switch 
dock  from  64KHZ  to  ISKHz  through 
Change  from  17  to  9  bit  poly)  can  be 
set  to  either  0  or  1.  When  the  con- 
trol is  set  to  0,  it  is  off;  when  it's  set 
to  1,  it's  on.  For  example,  to  switch 
on  the  control  for  Hi -pass  filter  on 
ch.O,  clock  by  1,  you'd  move  the 
pointers  to  that  line  with  the  A  or  Z 
key,  then  type  1.  To  turn  it  off, 
you'd  type  0.  You  can  turn  any  of 
the  controls  on  or  off  in  any 
combination. 

The  last  five  controls  on  this 
screen  (CHANNEL  through  STA- 
TUS) work  a  little  differently.  After 
selecting  one  with  the  pointers, 
press  the  space  bar.  A  question 
mark  prompts  you  to  enter  a  new 
value.  Type  in  the  new  value  and 
press  RETURN.  The  allowable 
ranges  are  CHANNEL  (0-3),  VOL- 
UME (0-15),  DISTORTION  (0-14), 
FREQUENCY  (0-255),  and  STA- 
TUS (0  =  ON  or  l  =  OFF).  These 
correspond  to  the  parameters  in  the 
BASIC  SOUND  statement,  except 
for  STATUS,  which  turns  the  cur- 
rent voice  on  or  off  so  you  can  mix 
the  different  voices. 

The  first  eight  controls,  how- 
ever, aren't  accessible  with  the 
SOUND  statement;  they  POKE  val- 
ues into  certain  memory  locations 
which  directly  control  the  POKEY 
chip.  Perhaps  the  best  way  to  learn 
what  these  controls  do  is  to  run  the 
Sound  Editor  and  simply  experi- 
ment. For  a  more  technical  explana- 
tion, read  the  following  section. 
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Playing  POKEY 

The  POKEY  chip  is  accessed 
through  nine  memory  locations 
known  as  AUDFl  (53760),  AUDF2 
(53762),  AUDF3  (53764),  AUDF4 
(53766),  AUDCl  (53761),  AUDC2 
(53763),  AUDC3  (53765),  AUDC4 
(53767),  and  AUDCTL  (53768). 
AUDCTL  (AUDio  ConTroL)  controls 
both  the  four  AUDio  Frequency  reg- 
isters (which  set  the  frequencies  of 
the  voices)  and  the  iom  AUDio  Con- 
trol registers  (which  set  the  vol- 
umes and  distortions  of  the  voices). 
Each  of  the  eight  bits  in  AUDCTL 
(0-7)  controls  some  aspect  of  the 
sound  produced.  These  eight  bits 
correspond  to  the  eight  controls  in 
the  Sound  Editor: 


5 — Play  Voices  Menu 
6 — Clear  all  voices 

7— MAIN  MENU 
Your  choice  (l-7>:  7 

After  editing  all  four  voices, 
you  might  want  to  hear  what  they 
sound  like  alone  or  in  unison.  Op- 
tion 5  brings  up  the  Play  Voices 
Menu,  which  offers  all  15  combina- 
tions of  the  four  voices  at  a  single 
keystroke: 

PLAY  VOICES  MENU 

—  Voice  Numbers  — 

A— 0,1,2,3      B— 0,1,2 

C— 0,1,3         D— 0,1 

E— 0,2,3         F— 0,2 

G— 0,3  H— 1,2,3 

1-1,2  J-1,3 

K— 2,3  L— 0 

M— 1  N— 2 

O— 3  P— PAST  MENU 


Bit 

0 

Decim 

1 

1 

2 

2 

4 

3 

8 

4 

16 

5 

32 

6 

64 

7 

128 

Description 

Switch  main  clock  base  from  64  KHz  to  15  KHz. 

Insert  high-pass  filter  into  channel  2,  clocked  by  channel  4. 

Insert  high-pass  filter  into  channel  1,  clocked  by  channel  2. 

Join  channels  4  and  3  (16  bit). 

Join  channels  2  and  1  (16  bit). 

Clock  channel  3  with  1.79  MHz. 

Clock  channel  1  with  1.79  MHz. 

Make  the  17-bit  poly  counter  into  9-bit  poly. 


The  clock  bits  (0,  5,  and  6) 
speed  up  or  slow  down  clock  tim- 
ers, making  higher  or  lower  fre- 
quency ranges  possible.  Setting  the 
voices  to  1.79  MHz  with  bits  5  and 
6  will  produce  a  much  higher 
sound.  The  64  KHz  clock  will  pro- 
duce lower  sounds,  and  the  15  KHz 
clock  the  lowest. 

The  filter  bits  (1  and  2),  when 
turned  on,  allow  only  frequencies 
higher  than  the  clock  value  to  pass 
through. 

Bits  3  and  4  each  join  two  of 
the  channels  together  to  permit  16- 
bit  frequency  resolution,  allowing 
greater  range  (nine  octaves  instead 
of  five)  and  pitch  accuracy.  Nor- 
mally, the  POKEY  chip  uses  only  8- 
bit  frequency  resolution. 

Finally,  bit  7  makes  the  1 7-bit 
poly  counter  into  a  9-bit  poly 
counter.  If  this  bit  is  set  when  using 
distortion,  the  distortion  pattern  be- 
comes more  obvious. 

Playing  Ihe  Sounds 

Let's  go  back  to  the  Sound  Menu, 
where  there's  one  more  option  we 
haven't  covered: 

SOUND  MENU 
1 — Envelope  Editor,  Voice  0 
2 — Envelope  Editor,  Voice  1 
3 — Envelope  Editor,  Voice  2 
4 — Envelope  Editor,  Voice  3 


You'll  notice,  however,  that 
the  sound  plays  very  slowly  when 
you  use  this  option.  This  is  because 
of  the  memory  consumed  by  the 
program,  BASIC,  and  the  routine 
that  checks  which  voices  are  played 
in  each  combination.  But  don't 
fret — the  sounds  are  much  faster 
(and  better)  when  played  with  a 
shorter  BASIC  program,  such  as 
Program  2,  Sound  Player.  This  pro- 
gram simply  loads  and  plays  any 
sound  created  with  the  Sound 
Editor. 

Program  3,  Sound  Program 
Writer,  takes  a  sound  created  with 
the  Sound  Editor,  compacts  it,  and 
automatically  writes  a  BASIC  pro- 
gram to  play  it.  During  the  com- 
pacting phase,  all  unused  bars  at 
the  ends  of  envelopes  are  chopped 
off.  In  addition,  a  menu  asks  you  to 
choose  which  voices  should  be  in- 
cluded, and  all  unused  voices  are 
omitted  from  the  resulting  pro- 
gram. So,  for  instance,  if  you  design 
a  sound  that  uses  only  one  of  the 
four  voices,  you  can  tell  Sound  Pro- 
gram Writer  to  discard  the  unused 
voices  and  use  only  the  one  you 
edited.  This  makes  the  sound  play 
noticeably  faster. 

To  add  the  sound  to  a  BASIC 
program  of  your  own,  simply  use 
the  program  created  by  Sound  Pro- 


gram Writer  as  a  subroutine.  It's 
saved  on  disk  in  ASCII  format  and 
can  be  merged  into  any  program 
with  ENTER. 

Disl<  Operations 

Before  you  can  play  a  sound  Vkdth 
the  Sound  Player  or  convert  it  into  a 
program  with  the  Sound  Program 
Writer,  you  have  to  save  it  on  disk 
with  the  Sound  Editor.  To  do  this, 
select  option  2  on  the  Main  Menu 
(Save/Load/Del/Dir  sound  enve- 
lopes). This  brings  up  the  Input/ 
Output  Menu: 

INPUT/OUTPUT  MENU 
l~Directory  of  *.SND  files 
2 — Save  envelopes  file 
3 — Load  envelopes  file 
4 — Delete  envelope  file 
5— MAIN  MENU 
Choice:  7 

Pick  option  2  to  save  a  finished 
sound  on  disk.  When  you  type  in 
the  filename,  don't  use  an  extender; 
the  Sound  Editor  automatically  ap- 
pends the  .SND  extender  to  all  en- 
velope files.  The  same  is  true  when 
loading  a  file  with  option  3  or  delet- 
ing a  file  with  option  4. 

Option  1  calls  a  directory  of  all 
files  on  the  disk  with  the  .SND 
extender,  and  option  5  returns  to  i 
the  Main  Menu.  You  can  also  abort 
any  save,  load,  or  delete  operation 
by  typing  X  and  pressing  RETURN 
at  the  filename  prompt. 

For  Instructions  on  entering  these  listings,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  compute', 

Program  1:  Sound  Editor 

KC10  GRAPHICS  0 1  POKE  B2,05P 
DKE  710,0iPOKe  752,  1 

SA  20  GGTO  3020 

LH30  REH  PRIMARY  MENU  PAGE 

IJ  40  COLOR  IrCLDSE  #l!OPEN 
»  1  ,  4  ,  0  ,  ■■  K  !  " 

OP  50  POKE  89,SCREEN1  :  POKE  1 
06, SCREEN1+4:PDKE  DL+5 
, SCREENl : BRAPHICS  0:PO 
KE  710,0:PDKE  712,0:PO 
KE  732, 1 

NH  60  POSITION  0,0:7  "  CQ} 

{38  R>tEJ":FQR  D" 1  TO 
11:P0SITI0N  0, Di  7  "  I  "s 
POSITION  39, D:?  " I " : NE 
XT  D 

CB  70  POSITION  0,12:?  "tZJ 
t3S  RICO" 

EL  80  POSITION  9,2:7  " 

Pf90  POSITION  1,4:7  "1  -  De 

VBlop  mounds" 
HO100  POSITION  1,5:7  "2  -  S 

av«/Lo«(J/Del /Dir  saun 

d  •nvelopes" 
AK110  POSITION  1,7:7  "3  -  E 

XIT  PRDBRAM" 
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Nl  120  POSITION  ■?,9:?  "Your 

choice  (1-3)  :  ?" 
HE  130  BET  #1,K:P0SITIQN  29, 

9;?  CHR»(K) 
BU  140  IF  K<49  OR  K>51  THEN 

POSITION  9,9!?  "YOUR 

CHOICEKS^SK:         ":FOR 
D-1     TO     10!NEXT     DiBOT 

0     120 
]N  1S0     ON     K-48    SOTO     160,2110 

,  170 
6D  160    SOTO     120 
FL  170    GRAPHICS    0:PDKE    B2,2: 

END 
11180    POKE     710,0:COLOR     1  :  CL 

OSE    #lsOPEN    *1,4,0,"K 


Kfl  190  POKE  89, SCR 
106,SCREEN1 
+5,SCREEN1 : 
) 

POKE  710,0: 
28 

POSITION  0, 
C38  R>CEJ"! 
13:PDSITI0 
"s POSITION 
NEXT  D:POSI 

?  "izyiza   R 

POSITION  13 


Hi>200 
U  210 

AN  220 
KK230 
IC  240 

19  250 

11(260 

LD  270 

fi  zee 

KU  290 
EF  300 
AE310 
PN320 

AL330 


EE340 

HE  3S0 

EG  360 
tH  370 
OC  3B0 


NL  390 
J6  400 


KP  410 
Bl  420 

JK430 

Ml  440 
LF  430 
tK460 
ii  480 
KB  490 
LP  500 
C!l  510 
Bl  S20 


POSITION  5, 
nvelope  Edi 


EENl :PDKE 
+4: POKE  DL 
?  CHR»(125 

POKE  712,  1 

0:7  "{Q} 
FOR  D=l  TO 
N  0 ,  D :  ?  "  i 
39, D: 7  "i" 
TION  0,14: 
>  CO  " 
,  2  !  ?  "KXilL 

4 : ?  "1  -  E 
tpr ,  Vol ce 


A6  530 


m  5  40 


TION  5, 5 
ape  Edi  to 

TION  5,6: 
ape  Edi  to 

TION  5,7 
ope  Edito 


TION 
Voic 
TION 

all 
TION 

MENU 
TION 
ice  ( 
#1  ,  K: 

CHR» 

48<1 
POSIT 

CHOI 
R  D-1 
TO  31 

49 

48  B 
400,  1 

310 
CLEftR 
X-0  T 
5jS(X 
T  X!G 
MAIN 

89,3 
SCREE 
CREEN 
TION 
TION 


=  ,8 

B  Ke 
5,9: 
vai  c 
5,  10 

6,12 
1-7) 
POSI 
(K) 

OR 
ION 
CE 

TO 


?  "2  -  E 
r ,  Voice 

3  -  E 
r ,  Voi  ce 

4  -  E 

r ,  Voi  ce 

?  "5  -  P 

nu" 

?  "b    -    C 

es" 

:  ?  "7    - 

:?  "Your 

:  ?" 
TION  26, 

K-49>7  T 
6,12:?  " 


10SNEXT 


POSI 
nvel 

1  " 
POSI 
nvel 

2" 
POSI 
nvel 

3" 
PDSI 
lay 
PD3I 
1  ear 
POSI 
MftIN 
PDSI 

cho 
BET 
12:  ? 
IF  K 
HEN 
YOUR 
"i  FD 
D:  GO 
CH-K 
DN  K 
400, 
GOTO 
REM 
FOR 
TO  3 
!  NEX 
REM 
POKE 
106, 
+  5,  5 
POSI 
POSI 
,0) 
FOR 
A) 

Y"20-R: X=A+2 

PLOT  X,Y 

NEXT  A 

OLD-S; POS^OLD 

COLOR  222!PL0T  P0S,21 

REM  KEYBOARD  CHECKER 

POKE  764,255 

S-'STICK  (01  :  K  =  0 


DTD 
820, 

ALL 
0  3: 
,Y)- 
DTO 
ROUT 
CREE 
N2+4 
2:  CO 
13,  I 
16,2 


400, 400, 
380,40 

VOICES 
FOR  Y=l 
BsNEXT  Y 
310 
INE 

N2: POKE 
: POKE  DL 
LOR  160 
:  ?  CH 
:?  SD(CH 


A-1  TO  35!R=S(CH, 


EF  550 

BC  560 

JC570 

FF5e0 

IK  590 

6£  600 

HE  610 

NB  620 

ei  630 

DO  640 

HC6a0 
nH  660 

LP  670 

HI)  680 

6K  690 
KF  700 
GI  710 
EE  720 
E*730 

BC  740 
EA  7S0 

SB  760 

BO  770 
OB  780 
IL  790 
(6  800 
6«  810 

Cf>820 
HA  8  30 
11(84  0 

OH  850 


BO  860 
FC  870 
iP  BB0 


HE  890 


OH  900 

CB  910 


Fl  920 

DF  930 
BS  940 


IF  PEEK (764)»255  AND 
S-15  AND  soil  AND  S< 
>7  AND  STRIB(0)<>0  TH 
EN  520 
IF  PEEK(764)=255  THEN 

600 
BET  #1,K 

IF  CHR*(K)="L"  THEN  B 
70 

IF  CHR*(K)="M"  THEN  1 
750 

IF  CHR4(K)="C"  THEN  9 
00 

IF  CHR» (K) ="S"  THEN  C 
OLOR  32:PL0T  P0S,21:G 
OTO  930 

IF  STRIB(0)=0  THEN  72 
0 

IF  S=15  OR  soil  AND 
S07  AND  3TRIG(0)=1  T 
HEN  520 

IF   NOT  ((S=ll  AND  PO 
S=3>  OR  CS=7  AND  PDS= 
37) >  THEN  660 
IF  (S=H  AND  P0S  =  3)  T 
HEN  P0S=37 

IF   (S=7  AND  POS=37)   T 
HEN  P0S=3 
GOTO  680 
P0S=PDS+1« (POS<3B  AND 

S=7) 
P0S=P0S-1» CP0S>3  AND 
3=11) 

COLOR  222: POKE  53279, 
0:PLOT  P0S,21 
COLOR  32iPLQT  OLD, 21 
DLD-POS 
BOTO  520 

REM  FILL  IN  THE  BARS 
FOR  S-15  TO  0  STEP  -1 
; SOUND  0,50, 10, S; NEXT 

S 
P-P0S-2i  V-S (CH, P> : X  =  P 
OS: Y=20-V! Y2"Y 
S-STICK(0)  :  IF  S014  A 
ND  S013  AND  STRI6(0) 
-1  THEN  750 
IF  STHIB(0)=0  THEN  84 


V-V+II (3-14 
V-V-II (S-13 
Y=20-V 
COLOR  124!P 
COLOR  160:P 
-Y 

POKE  53279, 
QOTD  750 
3<CH, P) »V 
FOR  S-0  TO 
, 255, 10, 3: N 
D  0,0,0,0 
SOTO  520 
REM  LISTEN 
POKE  53768, 
53760, SDCCH 
I  TO  35tR"S 
E  53761, SD( 
XT  1 

POKE  53761, 
64,255:60T0 
REM  CLEAR  T 
COLOR  124;F 

1  STEP  -1 
X-A+2: Y=(20 
,Y:NEXT  AsC 
OT  pas,2i 

FOR  1=1  TO 
=0:NEXT  I:B 
REM  CHANGE 
POKE  82,2!P 
SsPDKE  89, S 
E  106, SCREE 
DL+S, SCREEN 


AND  V<1S) 
AND  V>0> 

LOT  X,Y2 
LOT  X,Y:Y2 


15:S0UND  0 
EXT  S:S0UN 


BYTE: POKE 
,0)sFOR  1= 
(CH, I) :PDK 
CH, 1)+R! NE 

160SPOKE  7 

510 
HE  BARS 
OR  A''35  TO 
R=S (CH, A) : 

R) :PLOT  X 
OLOR  32: PL 

35:S (CH,  I  ) 
OTO  400 
DISTORTION 
OKE  764,25 
CREENl jPOK 
N1+4:P0KE 
Is  POKE  752 


,li7  CHR*(125) 
fC  950  POKE  53768,  01  CHAN  =  CH 
BC  960  POSITION  0,0:?  "Modif 

y/Mix  SDundm":PaKE  75 

2,  1 
KH  970  POSITION  0,1:7 


DB  980  P 
h 

T 
KC  990  P 


BA  1000 


NC  1  0  1  0 


Nl  1020 


PF  1030 


PG  1040 


QL  1050 


DP  1060 


1070 


BE  1080 


cm^ 


I  I  I  I  I  ^ 

031TI0N  1,2:?  "Switc 
clock  -from  64KHz  to 
15KHit3  3PACESJl"jBI 
(0) 

OSITION  1,3:?  "Hi-pa 
s  -filter  on  ch.l,  cl 
ck  by  3  !  "}BIT(1> 
POSITION  1,4:?  "Hi-p 
asB  -filter  on  ch.0, 
clock  by  1  : " jBIT(2) 
POSITION  1,5:7  "Join 

channels  3  and  2 
<:i4  SPACES>:  '■:BIT(3) 
POSITION  1,6:?  "Join 

channeln  1  and  0 
{14  SPACES}: " jBIT (4) 
POSITION  1,7:7  "Cloc 
k  channel  2  with  1.7 
9  MHz  t6  SPACESJ:  "; Bl 
T(5) 

POSITION  1,8:?  "Clac 
k  channel  0  with  1.7 
9  MHz  C6  SPACESJ:  ";BI 
T(6) 

POSITION  1,9:?  "Chan 
ge  from  17  to  9  bit 
pDly{7  SPACES? : " jBIT 
(7) 

POSITION  1,10:?  "CHA 
NNELf4  SPACES>!  "  ;  CH 
AN 

POSITION  1,11s?  "VOL 
UMECS  SPACES}:   " J VO ( 
CHAN) 
POSITION  1,12:?  "DIS 


'; SD(CHAN, 


TORTION  : 
11/16 
EC  1090  POSITION  1,13:7  "FRE 
(2UENCY   :   "jSDCCHAN, 
0) 
FE1100  POSITION  1,14s?  "STA 

IF  STAT 
"DN 


CB  1  1  1  0 
JC  1120 


TUS(0/1) : 

(CHAN)-l  THEN 

"sGQTO  1120 

7  "OFF" 

POSITION  2,16! ?    "Kam 


JA1130  CURX  =  38:  CURY  =  2:P0KE 
764, 255: OLY=CURY! CLO 
SE  #1 : OPEN  «1 , 4, 0, "K 


LF  1140 
FI  1  150 


m  1160 

BL  1  170 

BL  1  180 
PA  1  190 

FJ  1200 

BF  1210 

NK  1220 
ND  123  0 
HE  1240 


REM  RUN  THE 
POSITION  0, 
" ! POSI TION 

II  ^  II 

IF  PEEK (764 

EN  1200 

IF  STRIB<0) 

570 

SOTO  1160 

REM  TOP  PAR 

-7) 

IF  PEEK(764 

EN  BET  #1,K 

IF  K=BS  THE 

{CLEAR}": GO 

M  TO  VOICE 

e  SCREEN 

IF  CURY<10 

OR  K=49)   T 
IF  K=6S  OR 

1270 
IF  K«=32  AND 
HEN  1310 


MENU 
CURYs 
38,  CU 

)025 

=  0  TH 

T   (Bl 

)<>25 

N  ?  " 
TO  40 
DEVEL 

AND  ( 
HEN  1 
K  =  90 


?  "  > 
RY:? 

5  TH 

EN  1 

TS  0 

5  TH 


0:RE 
OPIN 

K-48 

260 

THEN 


CURY>9  T 
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K  12S0    POKE  764, 2S5i SOTO  11 

50 
III  1260  BIT(CURy-2)»K-48:  PD5 

ITION  CURX-l.CURYs ? 

BIT(CURY-2) :POKE  744 

,255: SOTO  11S0 
I!II1270  CURY-CURY-1*  (K-6S)  sC 

URY-CURY+1* (K=90) S IF 

CURY<2  THEN  CURY-14 

C8  12B0  IF  CURY>14  THEN  CURY 

-2 
L*  1290  POSITION  CURX.DLY:? 

CHR»(32) iPOSITION  0, 

OLY;?  CHR»(32) lOLY-C 

URY 
BE  1300  GOTO  I  150 
BO  1310  POKE  752,0 
OL  1320  TRAP  1320iPO3ITION  1 

,1S:?  "CDEL  LINE>";: 

INPUT  NUM:TRAP  40000 
flF 1330  IF  NUM<>INT<ABS tNUMJ 

)  OR  NUM<0  THEN  1320 
00  1340  ON  CURY-9  GOTO  1360, 

1390, 1420, 1460, 1490 
M1350  REM  PICK  fl  CHANNEL 
JF1340  IF  NUM>3  THEN  POSITI 

ON  1, lai?  " 

iDEL  LINE>Channel   (0 

-3) ":FaR  D-1  TO  200: 

NEXT  DiBOTO  1320 
Ell  1370  CHAN-NUM:Q0TO  1510 
H   1380  REM  PICK  A  VOLUME 
ll(139«  IF  NUM>15  THEN  POSIT 

ION  1,18:?  " 

{DEL  LINOValume  (0- 

15)"!F0R  D-1  TO  200: 

NEXT  DiQOTD  1320 
DH  1400  VO(CHflN)  =NUM:  GOTO  15 

10 
CJ  1410  REM  PICK  A  DISTORTIO 

N 
on  1420  IF  NUM>14  THEN  POSIT 

ION  1,18:?  " 

CDEL  LINE>Di5tartian 
(0-14)  ":FaR  D=l  TO 

2001NEXT  D:GOT0  1320 

UK  1430  IF  NUM/20INT  (NUM/2) 

THEN  NUM-NUM-1:IF  N 

UM<0  THEN  NUM=0 
CA1440  SDCCHAN,  1  }>NUMtl6:GO 

TO  1510 
ni  1430  REM  PICK  A  FREQUENCY 
01  1460  IF  NUM>25S  THEN  PDSI 

TION  1,18:?  " 

{DEL  LINE>Frequency 

(0-255) ":FOR  D=l  TO 

200INEXT  D:GOTO  1320 
JB  1470  SD(CHAN,0)=NUM:GOTO 

1510 
Pll  14B0  REM  PICK  A  STATUS 
IS  1490  IF  NUM>1  THEN  POSITI 

ON  1,18:?  " 

{DEL  LINE>StatU5  (0= 

WSm    1~EC:)":F0R  D=l  T 

0  300: NEXT  D:GaTQ  13 

20 
ffil500  STAT (CHAN) =NUM: SOTO 

1510 
CP  1510  POSITION  1,18:?  " 

{5  DEL  LINEJ":POKE  7 

52,  1 
6111920  POSITION  14,10:?  CHA 

N:P03ITION  14,11:?  V 

0(CHAN» ; " 
BJ  1530  POSITION  14,12:?  SD  C 

CHAN,  1  )  /16; POSI 

TION  14, 13:?  SD(CHAN 

,0);"   " 
KB  1540  POSITION  14,  14:  IF  ST 

AT{CHAN>=1  THEN  ?  "O 

N  "sGOTO  1560 
a  1550  ?  "OFF" 
m 1S60  GOTO  1150 


ON  ALL  VOIC 

S 

THEN  BYTE- 
THEN  BYTE- 
THEN  BYTE- 
THEN  BYTE- 
THEN  BYTE- 
THEN  BYTE- 
THEN  BYTE  = 


K  1570  REM  TURN 

E  CHANNEL 
SP  15B0  BYTE-0 

00  1S90  IF  BIT(0> 

BYTE+1 

01  1600  IF  BIT(l) 

BYTE+2 
OH  1610  IF  BIT<2) 

BYTE+4 
PC  1620  IF  BIT(3) 

BYTE+B 
CD  1630  IF  BIT  (4) 

BYTE+16 
CD  1640  IF  BIT  (5) 

BYTE+32 
CK  1650  IF  BIT  (6) 

BYTE+64 
Fll  1660  IF  BIT(7)  THEN  BYTE- 

BYTE+12a 
Wl  1670  POKE  53768, 0:PDKE  53 

768, BYTE 
9111680  FOR  X  =  0  TO  3:  IF  STAT 

(X)»0  THEN  1700 
m  1690  POKE  53760't  (Xt2)  ,SD( 

X,0)iPOKE  53761+(X«2 

)  ,SO(X,  D+VO  (X) 
FP  1700  NEXT  X 
DC  1710  POSITION  0,1:? 


IK  1720  IF  STRIB<0)-1  THEN  1 

720 
8C1730  POSITION  0,1:? 
[ID 

(L  1740  FOR  X-0  TO  8:P0KE  53 

760+X,0;NEXT  X:BOTO 

1150 

Eft  1750    REM     CLEAR     BARS 

ID  1760    COLOR     124:F0R    A-35    T 

0     1     STEP    -1;R»S<CH,A 

) I X-A+2I y- (20-R) :PLD 

T    X     Y 

EP  1770    NEXT    A 

JL17B0    COLOR    32lPL0T    OLD, 21 

I1E1790    POSITION     13,1:?     "     •' 

(111800    POSITION     16,3:?     " 

{3    SPACESJ" 

JK  1810  GOTO  1B0 

LD  1S20  REM  LISTEN  MENU 

110  1830  POKE  710,0:COLOR  1:P 

OKE  89,3CREENliPQKE 

106,SCREEN1+4jPOKE  D 

L+5,SCREEN1: ?  CHRt < I 

25} iPOKE  752, Is?  " 

{CLEAR>" 

HE  1840  POSITION  0,0:?  "{QJ 

{38  R>{E>"!FOR  D-1  T 

0  14:P0S1T10N  0,Di7 

" 1  ": POSITION  39, Ds  7 
.,  j  .. 

El  iaS0  NEXT  D:POSITION  0,15 

:?  "{Z>{38  R>{CJ" 
SL1B60  POSITION  8,2:?  " 

{4^^as>  HMaewnEoas 

BP1870  POSITION  7,4:?  "  — 

Volo  numbers  — " 
011880  POSITION  6,6:?  "A  - 

0, 1 , 2, 3{9  SPACES>B  - 
0, 1,2" 
PH  1890  POSITION  6,7:?  "C  - 

0, 1 , 3{1 1  SPACE3>D  -  0 

.X" 
Pei900  POSITION  6,B:?  "  E  - 

0,2,3C11  SPACES>F  -  0 
2  " 
PO1910  POSITION  6,9!?  "B  - 

0,3{13  SPACES>H  -  1,2 

.3" 
KK1920  POSITION  6,10:?  "I  - 
1,2{13  SPACES>J  -  1, 

3" 


HF  1930  POSITION  6,11:?  "K  - 
2,3{13  SPACESJL  -  0" 

BN1940  POSITION  6,12:7  "M  - 
ICIS  SPACES>N  -  2" 

Ift  1950  POSITION  6,13l?  "0  - 
3{15  SPACES>E  -  HIEC 
I 

GC  1960 

CJ  1970 
FF  1980 
DS  1990 

Kn  2000 

KII2010 


M  2020 

IB  2030 

in  2040 

1*  20S0 

JD  2060 

01  2070 
K  2080 

i»  2090 

DH2100 
KI  2 1 1 0 

M  2120 

BH  2130 

[R  2140 

ID  2150 

KL  2160 

JO  2170 

M2180 

«L  2 1 90 
m  2200 

EE2210 


POSITION  8,15:7  " 
{M}{20  R>{WJ" 
POSITION  8,16:7  "  I  Ya 
ur  choice  (A-P)  :   !" 
POSITION  8,17:7  " 
{Z>{20  R>CC>" 
BET  #1,K: IF  K<65  OR 
K>B0  THEN  POSITION  B 
,  16:7  ■'  1  YOUR  CHOICER 
rr-JJM;   i":BOT0  1970 
K=K-64:IF  K=16  THEN 
180 
POKE  53768, BYTEjPOKE 

53775, 3:PDKE  53760, 
SD(0,0):POKE  S3762,S 
D(1,0):POKE  53764,30 
(2, 0) :POKE  53766, SD( 
3,  0) 

POKE  559,0:FDR  A=l  T 
0  35 

POKE  53761 ,  fSD(0, 1 ) + 
S(0,  A)  )  *  ((3(K,  1  )-l  > 
POKE  53763,  <SD(1, 1 )+ 
Sei , A) ) « (S<K,2)=1) 
POKE  53765,(30(2,1)+ 
S(2, A) ) « (6(K, 3)=1) 
POKE  53767, (SD (3, 1 )+ 
S (3, A)  ) * (Q (K, 4)  =  1  ) 
NEXT  AiPOKE  559,34 
POKE  53768,0! POKE  53 
761,0:POKE  53763, 0:P 
OKE  53763,0: POKE  537 
67,0 

POSITION  14,16:?  "HI 
01^3^^^"  :  GOTO  1970 
REM  LOAD/SAVe/DIR/DE 
L 
POKE  89,SCREEN1: POKE 

106, SCREEN  1+4: POKE 
DL+5,SCREeNl 
CLOSE  ttl:OPEN  «1,4.0 
,"K:" 

QRAPHICS    0:POKE    710, 
0:POKE    82,0! POKE     752 
,1:TRAP    40000! POKE     7 
12, 192 
?     "  {CLEAR >^<:iJUTBrnT¥i 

ssamssMzuM" 


of 


7  "1  -  Directory 

t.SND  files" 

7  "2  -  Save  envelope 

*    file" 

?  "3  -  Load  envelope 

m  file" 

?    "4    -    Delete    envelo 

p  e  file" 

?  "5  -  MAIN  MENU" 

POSITION  0,15:?  "CHO 

ICE  !  7" 

BET  #1, K!POSITION  9, 

15: ?  CHR»(K) : IF  K<49 

OR  K>53  THEN  2130 
IF    K-S3  THEN  GOTO  40 
ON  K-48  QOSUB  2260,2 
350,2830, 2530, 180 
REM  DIR, SAVE, LOAD, DE 
L 

GOTO  2130 

7     "{CLEAR>ny4:T4^fini1t 
[.l^J:K.ijawn"  :  POKE 
2:7     :POKE    712,4 
CLOSE    »2:0PEN    #2,6,0 
, "Dl: t.SND": POKE     82, 
2:FLN-0 
FO  2280     TRAP    2310:  INPUT     #2,F 
L*!FLN=FLN+1: IF    FLS ( 


BB  2220 
W  2230 

DD  2240 

«1  2250 
Cn  2260 


CJ  2270 


82, 
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U  22<?0 

EF  2300 
jj  2310 

iC2320 

JD  2330 

U  2340 
EO  2350 

FP  2;S60 
lis  2370 

FE  2380 
PI  2390 

l(L2400 

PJ  2410 

PE  2420 

HL  2430 

EA  2440 

aK24S0 

BH  24&0 

Jtl2470 

IIK24a0 
OF  2490 
CA  2500 

BF  2510 


KJ  2520 
K  2530 


FP  2540 
HB  2SS0 

FE  2560 
PD  2570 

OE  2580 

*C  2590 

f>E  2600 

HI  2610 

KO  2620 
PE  2630 
Q6  2640 


PK  26S0 
FD  2660 

01)2670 


5,a)-"FREE"     THEN    231 

0 

FLL»-FL« (3,  10)  !FLL»  C 

9, 9) =". ": FLL* ( 10, 12) 

-FL»(11, 13) 

?    FLL»:GDTO     2280 

POKE    82,05?     :?    FL»:C 

LOSE     «2:PaKE     82,2 

?     :?     "PrBam    r:J^<H:!:     t 

a    continue...        " 

SET    #1,K:  IF    K01S5    T 

HEN    2330 

RETURN 

7     "CCLEftRJI 


I":  POKE    7  12, 

80 

?     :?     !?     ! POKE     752,0 

?     "Enter     name    for     fi 

1  e  .  " 

?    "    or     X    to    ex  i  t . " 

?  "t3  SPACES>{Q>  <:22 

R><E>" 

?  " <3  SPflCeS>  I  Dn: f i 1 

ename.   Extender!" 

?  "{3  SPACES} I automa 

tlcal 1 y  attached  I  " 

7  "C3  SPflCESJ tZ>{22 

R>{C>" 

SQSUB  2630: IF  FL»-"X 

"  THEN  RETURN 

IF  PEEK (195) =170  THE 

N  2480 

?  s?  FL»;"  already  e 

xiEts.":?  "Do  you  wa 

nt  to  rewrite  it  (Y/ 

N)  ?" 

QET  #1,K:  IF  K<  >ASC ( " 

Y">  AND  KOflSCC'N") 

THEN  2460 

IF  K-ASC("N")  THEN  2 

350 

?  "Okay,  saving  " ; FL 
»  ;  "  .  " 

CLOSE  #2:0PEN  #2,8,0 
,FL»:PUT  #2, BYTE 
FOR  X=0  TO  3:F0R  Y=0 

TO  IsPUT  #2,SD(X,Y> 
:NEXT  YiNEXT  X 
FOR  X=0  TO  3:F0R  Y=l 

TO    35:PUT    #2,S(X,Y) 
jNEXT     y;NEXT     X 
RETURN 
?    "  tCLEflR}MVl3Lg^U^b« 

2,64 

?  !?  :?  :POKE  752,0 

?  "Enter  file  to  del 

ete.  " 

?  "  or  X  to  ex  i  t . " 

7  "03  SPftCES><:Q>  t22 

R>{EJ" 

?  "£3  SPftCES> IDn:f il 

sname.   Extender!" 

7  "t3  SPftCES> I Butoma 

tically  attachedl" 

?  "tS  SPfiCES> CZJ {22 

R>{C>  " 

BOSUB  2630;  IF  FL»-"X 

"  THEN  RETURN 

GOTO  2720 

POKE  32, 13 

POSITION  12,14:7  " 

CDEL  LINE>" J :TRAP  26 

40;  INPUT  FLtsTRAP  40 

000: IF  FL»°""  THEN  2 

640 

IF  FL*="X"  THEN  RETU 

RN 

IF  FL»<1, 1) <>"D"  AND 

FL»(3,3)<>"t"  THEN 
2640 

POKE  82,01?  : TRAP  26 
90:FDR  D-4  TO  15;IF 


FD  2680 
KO  2690 


EC  2700 


FL«  (D,  D)-"  .  ■• 
P  :BOTO  2640 
WFltT  n 


THEN  PO 


NEXT  D 

-  I<FL»>+1) 


-■■  .  SN 


FL»(LEN(. --    

D" 

CLOSE  »2:TRAP  2710:O 

PEN  #2,4,0,FL«!POKE 

B2,0:CLQSE  #2 

RETURN 

IF  PEEK  <  195  )  O170  TH 

EN  2750 

"iFL«i 


HEISm" 
ON  27B0    QET    tl.KiIF    KOASC  (  " 

C")     AND    K0155    THEN 

2780 
HH2790     IF    K-155    THEN    2530 
8D  2800    7    CHR«(125>:?     :?     "NO 

U     DELETING     ";FL»; " . . 

II 

OII2B10     XIO     33,*2,0,  0,  FL» 

KK  2820     RETURN 

KC  2830     7     "  <:CLEAR}WW.r:l>M:-Mal 

a!I.MJi<B=M"iPOKE     712, 

242 

Program  2:  Sound  Player 

EA  10  GRAPHICS  0:POKE  710,12 
BiPOKE  7t2,B:PDKE  B2,0 

LF  20  DIM  3D  C3,  1)  ,  S(3,35)  ,FL 
•(20) SOPEN  #1,4,0, "K: " 
:POKE  752, 1 

BE  30  POSITION  0,0;?^' 

•ca  ^sinsmy 

BJ  40  POSITION  0,1:?  " 

<14  b<J;Iri^-1>i.-<t.UI.'l>M-JTPra: 

{ 1 4  aanE^> " 

AJ  30  7  :7  "This  program  loa 
ds  and  plays  sound 
{6  BPACES>envelopes  sa 
ved  with  the  Sound  Edi 
tor.  " 

£6  60  ?  s?  "It  can  also  be  u 
•ed  as  a  routine  in  yo 
urown  programs." 

CF  B0  POSITION  3,22:?  " 

Press  any  key  


OS  90  POKE  764,255:BET  »1,K 
AG  100  ?  CHR»  (  125)  :PDSITION 

0,0;?  "  t B  i--! "-^'^ j-;^>amii 

CB  aanKiaj " :  POKE  752, 
0 

7  !?  i?  "Enter  name  i 

or  1 oad  file.  " 

?  "tQ}{25  R>{E>" 

?  "  !  Dn  : -f  i  lenamo.   Ext 

ender  is!" 
PI  140  ?  "  I  automatical  ly  app 

ended.    i " 
PI  150  ?  "  CZ>  tZS  R>  CO  " 
£6  160  POSITION  12,  14:  INPUT 

FL«:  IF  FL»=-""  THEN  16 

0 


FL  1  li 


06  120 
IF  130 


HO  170  IF  FL«(t,l)<>"D"  THEN 

100 
E8  180  POKE  82,0:7  STRAP  200 
:Ft3R  D-1  TO  15!lF  FL« 
(D, D) »" . "  THEN  POP  sS 
OTO  160 
BN  190  NEXT  D 
6P200  FL*  (LEN(FL»)  +  1  )  =  ".  SND 

II 

IIH210  CLOSE  #2iTRAP  220:OPE 

N  «2, 4, 0,FL*sCLOSE  #2 
AP  220  IF  PEEK*  195)0170  THE 

K    240 
IK  230  ?  :?  FL»;"  does  not  9 

•cm  to  ex i st . . . " : POKE 
752,  1:POSITION  0,  20i 

?  "<C6  SPACES>PRESS  AN 

Y  KEY": GOTO  90 
Ff  240  ?  "Okay,  loading  " ;  FL 

«!".■' 
JA250  CLOSE  «2:OPEN  #2,4,0, 

FL*:8ET  #2, BYTE 
AD  260  FOR  X-0  TO  3:  FOR  Y-0 

TO  li  BET  #2, Z: SD<X, Y) 

-ZtNEXT  YiNEXT  X 
PI  270  FOR  X"0  TO  3!  FOR  Y- 1 

TO  35:QET  #2,Z:S(X,Y> 

-ZiNEXT  YiNEXT  X 
LP  280  REM  ENVELOPE  PLAYED  H 

ERE 
HJ  290  POKE  559,0 
EB  300  POKE  5376B,  BYTE;  POKE 

53775, 3: POKE  53760, SD 

(0,0)iPOKE  53762, SD(1 

,0)sPOKE  53764, SD(2,0 

> ;POKE  53766, SD (3,0) 
JH310  POKE  559,0:FOR  A- 1  TO 

35 
CI  320  POKE  53761,  (SD(0,  1  >+S 

(0, A)  ) 
CN330  POKE  53763,  (SD(1,  1  ) +S 

(1, A)  ) 
DC34e  POKE  33765,  CSD(2,  n+S 

(2, A) ) 
OH  330  POKE  53767,  (SD(3,  1  )  +S 

(3, A) ) 
CA  360  NEXT  flsFOR  D»l  TO  5:N 

EXT  D:POKE  559,34 
PH  370  POKE  53761,0:  POKE  537 

63,0!POKE  53765, 0:PQK 

E  53767, 0:POKE  752,1 
EI  380  POSITION  0,21:?  "Pros 

B  :  iJlJ:TWi^.T:1r:  to  hear 
again":?  " 

(8    SPACESJHMHini   to    1 

oad    another" 
Dl  390    GET    #1,K:IF    K032    AND 

K0155  THEN  390 
HK  400  IF  K-32  THEN  290 
EA410     IF    K-ISS    THEN    GOTO     10 

0 

Program  3:  Sound  Program 
Writer 


El  10  GRAPHICS  0:  PO 
POKE  B2,0!PaK 
PEN  #1,4,0, "K 

BB  20  POSITION  0,0: 

cs  aanH^>  " 

OB  30  POSITION  10,  1 
PROGRAM  MAKE 
1040 

AH  40  ?  :?  :?  "This 
takes  any  arr 
Df{3  SPACES>e 
made  with  the 
itor" 

IE  50  ?  "and  writes 
-able  BASIC  p 
D  pi  ay  them. 


KE  710,0: 
E  752, 1:0 


?  "SOUND 
R": GOSUB 

program 
angement 
nvel opes 

Sound  Ed 

an  ENTER 
rogram  t 
All  you  n 
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eed  to  provide" 
KN  60  7  "is  the  starting  lin 
e  numbar  of  the 
t6  SPftCESJprogram  and 
a  saved  sound  envelope 

■file." 
POSITION  13,20:7  "QH^ 


KJ  70 

El  B0 

FK  100 

DN  1  10 
IE  120 

PH  130 

PH  140 

UK  150 

FF  160 
BK  170 

BH  180 
HH  190 

MF  200 

HC  210 
II  220 

FE  230 
IP  240 


POKE 

?  CH 

?  : 

or 
?  " 
?  " 
end 
?  " 
end 
?  " 
POK 
2,  1 

IF 

90 
PDK 
I  FO 
(D, 
OTO 
NEX 
FL« 


764 
R*  (  1 
?  :? 
load 
{Q>< 
[Dnt 
er  i 
I  aiit 
ed. 
{ZJ  C 
E  75 
4:  IN 

THE 
FL»  ( 


,255:HET  #1,K: 
25) 

"Enter  name  f 

file." 
25  R>tE>" 
f  i 1 ename.   Ext 
s  !  " 
omatically  app 


I  " 
25  RXO" 
2,0:PDSITION  1 

PUT  FL*! IF  FL« 

N  90 

1  ,  1  ) <>"D"  THEN 


,0!?  : TRAP  190 
1  TO  15! IF  FL» 
.  "  THEN  POP  :B 


,  END 


E  82 
R  D= 
D)»" 

90 
T  D 
(LEN (FL«)+1 ) = 


CLOSE  tt2:TRAP  210: OPE 
N  #2, 4, 0, FL9: CLOSE  #2 
TRAP  40000; IF  PEEK (19 
5)<>170  THEN  230 
?  :?  FL»! "  does  not  s 
eem  to  exist... ":POKE 
752,  liPDSITION  0,20: 
?  '■<6  SPACESJPRESS  AN 
?  "Okay,  loading  " ;  FL 
«  ;  "  .  " 

CLOSE  #2:0PEN  «2,4,0, 
FL«:SET  #2, BYTE 

ftC250  FOR  X-0  TO  3:  FOR  Y=-0 
TO  1 i3ET  #2,  Zi  SDCX, Y) 
-Z:NEXT  Y!NEXT  X 

PH  260  FOR  X-0  TO  3:  FOR  Y=l 
TO  35:6ET  #2, Z;S (X, Y) 
-Z;NEXT  Y:NEXT  X 

EH  270  POKE  752,1:?  CHR»C125 
>:?  !?  !?  "The  next  m 
anu  is  a  listing  o-F  d 
l-f-farant  voice  arrang 
antents.  Choose  one," 

IB  280  ?  "enter  the  name  of 
the  program  to  write, 
and  then  select  the 
start  i  ng  line" 

HN  290  ?  "number;  the  comput 
er  will  start  writing 


PL  300 


the  program,  which 
should  only  take  a 
t3  SPACES>few  minutes 
.  "iPDSITIDN  13,20 

Uif3i0  ?  "\-j-j:iA^-A:v-m:i=*.\"  -.  pokt 

E  764,255:eET  #I,K 
LO  320  7  CHR«  (125) 
PO  340  POSITION  12,2!? 

N6EMENT  MENU" 
BB  350  POSITION  10,4!?  " 

oice  Numbers  — " 
HF  360  POSITION  6,6:7  "A 

,1,2, 3<9  SPACES>B 

,1,2" 
LP370  POSITION  6,7:?  "C 

,  1  ,3tl  1  SPACESJD 


'ARRA 


0 
0,1 


UN  360 


HP  390 


POSITION  6,B:?  "E  -  0 
,2,3C11  SPACES>F  -  0,2 


POSITION  6,9:7 
,3<13  SPACES>H 


■G  -  0 
-  1,2,3 


JF  400  POSITION  6,101?  "I  - 

1,2'C13  SPACESIJ  -  1,3' 

IIH410     POSITION    6,11;?  "K     - 

2,3'C13     SPACES>L  -    0" 


'M 


OF  420  POSITION  6,12: 

1C15  SPACeS>N  -  2" 
DO430  POSITION  6,13:?  "0  - 

3" 
SI  440  POSITION  9,16:7  "Your 

choice  (A-P)  :  ?" 
NE  450  GET  #1,K;IF  K<65  OR  K 

>79  THEN  POSITION  9,1 

6l7     "YOUR    CHDICE^IIBC; 

fm:         ":60T0     440 

V-K-64 

7    CHR»<125) !?     : ?    "Ent 

er  name  for  the  progr 

am  file." 

POKE  752,0:POSITiaN  1 

2, 14j?  "<DEL  LINE>"; : 

INPUT  FLL«: IF  FLL»="" 
THEN  480 

IF  FLL»(1, 1) <>"D"  THE 

N  480 

?  CHR*(125)  s  7  !?  "Ent 

•r  the  starting  line 

number"!?  "and  intarv 

al  for  ";FLL» 

?  "  Enter  START, INTER 

VAL" 

TRAP  540;POSITION  0,1 

2:INPUT  N1,N2:TRAP  40 

000 

?  "OK...":?  " — COMPAC 

TIN6 — " 

LN-SSsFDR  A-35  TO  1  S 

TEP  -1 

S-0IFOR  B-1  TO  4; IF  6 

(V,B)=0  THEN  GOTO  590 

S-S+S(B-1, A) 

NEXT  BiNUM-Nl 

IF  S<>0  THEN  POP  :BDT 

0  620 

LN=-AiNEXT  A 

CLOSE  #1:0PEN  #1,8,0, 
FLL* 

OS^STR* (Nl )  : D«  tL£N(D« 
)+l)="  LN-": D« (LEN(D» 
)+l)-STR«(LNt2) ! 7  «1 ( 
D*:D»="":N1=N1+N2 
D«'>STR«  (Nl  )  :  D«  (LEN<D« 
)+l)-"  POKE  53775, 3!P 
OKE  53768,0":?  #1;D«: 

D»- N1=N1+N2 

D»-5TR« (Nl ) :D«(LEN(D« 

) + 1 ) - "  DIM  " 

FOR  A-1  TO  4i IF  B(V, A 

)<>1  THEN  690 

D«  <LEN(D»)+1 ) -"E":D»( 

LEN(D*) +1)-STR«(A-1> : 

0* (LEN CD*) +1 ) »"»(LN) , 

NEXT  A:IF  D»(LEN<D«), 
LEN(D») )=", "  THEN  D» ( 
LEN (D«) )-"" 
?  #1;D»:N1-N1+N2:D»=" 


AP  460 
01  480 


OA  490 

KCS00 

a  S20 

SI  530 
IB  540 

)K  550 

EP  S60 

JK  570 

FK  580 
SF  590 
EL  600 

ej  610 
AP(620 
BB  630 

KB  640 

LO  650 

HA  660 
KH  670 

OF  680 

KL  690 

GA  700 
PK  710 
TB  720 


IIP  730 


NN  740 


BF  750 


FDR  A- 
+1 ) <>1 
D»-STR 
)  +1  ) 
1)-STR 
+!)-"♦ 
) -CHR* 
FDR  B  = 
)  :  IF  R 
(D»)  1-1 
D« (LEN 
i  NEXT 
-CHR»( 
7  #1  ;  D 
2 


0  TO  3 
THEN  7 

« (Nl ) : D 
E": D»£ 
*(A) ! D» 
-"!D«  (L 
C34) 

1  TO  LN 
<10  THE 
)  -"0" 
(D«)+l ) 
B:D* (LE 
34) 
*:D« 


IF  B(V, A 
60 

«(LEN(D* 
LEN(D»)+ 
(LEN (D«) 
EN(D») +1 

:R=S(A,B 
N  D«(LEN 

STR«(R) 
N(D»)+1) 

sNl-Nl+N 


BK  760 
HJ  770 


DB  7S0 
PP  790 

PP  800 


AB  810 
LE  820 


830 


CO  840 
CB  850 


PH  860 

DG  8  70 
BE  880 


HE  890 


OP  900 

St;  910 

SH  920 


OH  930 

PK940 
HA  950 

BE  960 

ti  970 

KL  990 

PH  1000 

LL  1010 

PH  1020 
CF  104  0 

HK  1050 
10  1060 


JI  1070 
KJ  1080 


NEXT  A 
D»-3TR 
>  + 1  )  -  " 
*(LEN( 
E)  ;7  # 

*  ^  «■  n 

D»-STR 
FOR  A- 
+  1)01 
D*(LEN 
"  :D* (L 
53760+ 
+ 1  )  -  "  , 
-3TR* ( 
D«(LEN 
NEXT  A 
LEN(D« 
LENCD* 
?  ttljO 


«(N1> iD«(LEN(D« 

POKE  53768, "iD 

D»)+1)-STR» (BYT 

1:D«:N1-N1+N2:D 

*(N1) 

0  TO  3: IF  G(V, A 

THEN  820 
(D»)+l)-"  POKE 
EN(D«)+1)-STR» ( 
2tA) :D«<LEN(D«) 
D«(LEN (D*)+l) 
SD(A,0) } 
(D»)  +1  )  -=":  " 
: IF  D*(LEN(D«> , 
))-":"  THEN  D« ( 
)  )  -  "  " 
•:N1-N1+N2: D»-" 


D«-STR« (Nl ) 
D»(LEN(D»)+1)="  POKE 
5a9,0!FQR  A-1  TO  "  !  D* 

(LEN(D»)+1)-9TR« (LN) 8 

D«(LEN(D«)+1)-"  STEP 

2":?  #1;D«:D*-"":N1=N 

1+N2 

FOR  A-0  TO  3: IF  6 (V, A 

+  1)01  THEN  910 

D«=STR«(N1) 

D«  (LEN<D») +1)-"  POKE 

"  I D* ( LEN ( D» ) + 1 ) -STR» ( 

5376 1+2* A) :D« (LEN (D») 

+  1  ) -", VAL(E":D« (LEN(D 

•J+l>-STR.«(ft) 

D» (LEN(D») +l)""«(fi«2- 

1  , A«2)  )+":D»(LEN(D»)  + 

1  ) -STR«(SD(ft,  1 )  ) 

7  «I  ; D*:N1-N1+N2 

NEXT  A 

D«-STR»(N1 )  : D«  (LEN CD* 

)+l)="  NEXT  A:POKE  55 

9,34" I ?  #1 jD«! D*-""!N 

1-N1+N2 

D*-STR«<N1 } : D« (LEN (D« 

)+l)-"  POKE  53761, 0sP 

OKE  53763, 0:POKE  5376 

5,0:POKE  53767, 0iPOKe 

53768, 0:END":?  #1;D« 
D»="":?  #liD»! CLOSE  # 
1 

7  CHR*(125) t?  !?  " 

>  FINISHED"! POKE  752, 

1 

?  ! 7  : 7  "Press  E  to  r 

un  the  program  again" 

?  "{3  SPACESJor  [t  to 

quit.  " 

OPEN  #1,4,0, "K: ":POKE 

764,255 

SET  #1, K:  IF  K<  >ASC ( " 

R">   AND  KOASC("Q") 

THEN  1000 

IF  K-ASCC'R")  THEN  R 

UN 

POKE  752,0:END 

DIM  FL*(20) ,G(14,4) , 

FLL*  (20)  , S (3,35)  , D» ( 

120) , SD(3, 1 ) 

RESTORE  1060: FOR  X-1 
TO  14:FaR  Y=l  TO  4: 

READ  D:G (X, Y)-D: NEXT 
Y:NEXT  X 

hAH\     1,1,1,1,1,1,1,0 

,1, 1,0,1,1,1,0,0, 1,0 

,1,1,1,0, 1,0, 1,0,0, 1 

,0,1,1,1,0,1,1,0,0,1 

,0, 1,0,0, 1, 1, 1,0,0,0 

,0,1,0,0 

DATA  0,0, 1 ,0,0,0, 0, 1 

RETURN 
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IBM 

Keyboard 
Customizer 


This  tutorial  for  the  IBM  PC/PCjr 
explains  how  to  customize  your  com- 
puter's keyboard  with  simple  DOS  2.0 
or  higher  commands.  Besides  reas- 
signing key  definitions  to  your  own 
personal  taste,  you  can  create  key- 
board macros,  define  as  many  as  40 
function  keys  and  choose  new  screen 
modes  and  color  combinations. 


Have  you  ever  wished  you  could 
change  a  key  on  the  keyboard  into 
another  key,  or  make  a  single  key- 
stroke spell  out  an  entire  phrase? 
Would  you  like  to  move  the  colon 
and  the  semicolon  keys,  or  put  the 
Return  key  in  a  more  convenient 
position?  It  is  quite  possible  do  to 
all  this  and  more  with  a  few  simple 
commands  from  DOS.  You  can 
even  create  up  to  40  different  func- 
tion keys  which  can  be  used  to  print 
a  variety  of  command  words  or 
phrases  of  any  length.  With  a  little 
more  work,  you  can  even  change 
your  standard  QWERTY  keyboard 
into  the  efficient  Dvorak  format 
which  can  improve  typing  speed 
dramatically. 

All  this  is  made  possible  with 
the  extended  screen  and  keyboard 
control  offered  by  DOS  2.0  and 
higher.  Though  the  DOS  manual 
devotes  only  one  page  to  this  sub- 
ject, the  process  is  not  complicated. 
Let's  look  first  at  how  to  switch  key 
assignments.  Then  we'll  explore 
how  to  perform  related  tasks  such 
as  setting  the  screen  mode,  chang- 
ing the  background  and  foreground 
colors,  and  positioning  the  cursor. 


David  Engebretsen 
Boot  Up  With  CONFIG.SYS 

It  is  suprisingly  easy  to  reassign  any 
key  or  keys  to  a  location  that  suits 
your  own  personal  needs.  The  first 
step  is  to  create  a  CONFIG.SYS  file 
that  installs  an  extended  screen  and 
keyboard  control  device  driver 
when  you  boot  the  system.  This  can 
be  done  with  the  EDLIN  system 
editor  included  on  your  DOS  disk. 
From  the  DOS  command  prompt 
(>)  simply  type  EDLIN  CON- 
FIG.SYS and  press  Rehim.  The 
drive  will  whir  as  it  opens  a  new 
file;  after  a  few  moments  your 
screen  should  look  something  like 
this: 

New  file 

* 

Type  the  following  lines,  pressing 
Return  at  the  end  of  each  line: 

DEVICE  =  ANSI.SYS 

Press  Ctrl-Break,  then  type  the 
number  3  and  press  Return.  At  this 
point  you  have  created  a  configura- 
tion file  that  runs  automatically 
whenever  you  boot  the  computer. 
The  result  is  that  the  computer  is 
then  made  ready  to  accept  some 
new  key  assignments. 

Reassigning  Key 
Definitions 

The  next  step  is  to  do  the  actual  key 
switching.  Since  this  can  involve 
some  odd  character  sequences,  it's 
easiest  to  do  this  from  within  a 
BASIC  program  that  stores  the 
needed  data  in  a  text  file  on  disk. 
Here   is   a   program   that   demon- 


strates the  technique.  We'll  use  it  to 
create  a  file  that  changes  the  upper- 
case Q  to  an  uppercase  D. 

M    10   fl»=CHR*(27)  +  "C"  +  CHR«t3 
4)  +  "□"  +  CHR»t34)  +  "; " 
+  CHR«(34)  +  "D"  +  CHR»<34 
>  +  "p" 

FH  20  OPEN  "KEY.  TXT"  FOR  OUTPUT 
AS  HI 

DD  30  PRINT  #i,  A» 

6«  40  CLOSE  ii 

Save  this  program  as  REASSIGN- 
.BAS  and  run  it.  REASSIGN.BAS 
creates  a  text  file  that  contains  the 
following  character  sequence: 

ESC  ["Q";  "D"p 

CHR$(27)  is  the  ASCII  code  for  the 
ESC  character;  this  is  the  control 
code  which  changes  the  uppercase 
Q  into  an  uppercase  D.  To  imple- 
ment this  change,  insert  the  disk 
containing  your  new  CONFIG.SYS 
file,  then  reboot  by  pressing  Ctrl- 
Alt-Del  simultaneously.  This  en- 
ables the  ANSI  device  driver  which 
in  turn  allows  the  keyboard  to  be 
redefined. 

After  answering  the  time  and 
date  prompts,  type  TYPE  KEY.  TXT 
at  the  DOS  prompt  and  press  Re- 
turn. This  action  enters  the  special 
control  characters  into  the  comput- 
er's memory.  Now  whenever  you 
type  an  uppercase  Q,  the  system 
substitutes  an  uppercase  D. 

Keyboard  Macros 

The  same  technique  can  be  used  to 
create  a  keyboard  macro — a  key  that 
produces  a  multicharacter  word  or 
phrase  with  just  one  keystroke.  To 
illustrate,  let's  redefine  uppercase  Q 
so   that  it  prints   the  phrase    The 
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/%ri75^  whenever  it's  pressed.  Reen- 
ter BASIC  and  load  the  REAS- 
SIGN.BAS  program  again,  then 
replace  line  10  as  shown  here: 

EP  10  fl»=CHR»(27)+"["+CHR»(34)+" 
Q"+CHRt (34) +" ; "+CHR» (34) +" 
ThB  Phraso"+CHR»<34>+"p" 

Now  run  the  program  again. 
This  creates  a  text  file  that  contains 
these  characters: 
ESC  I"Q";'The  Phrase"p 

Type  SYSTEM  to  go  back  to  DOS, 
then  type  the  KEY.TXT  file  again. 
Now  whenever  you  press  Q  the 
computer  prints  The  Phrase  on  the 
screen. 

When  creating  the  KEY.TXT 
file,  it  is  also  acceptable  to  substi- 
tute an  ASCII  code  for  the  charac- 
ter. For  example,  say  that  you  want 
to  change  uppercase  Q  back  to  up- 
percase D.  Go  back  to  BASIC  again 
and  change  line  10  as  shown  here. 
Note  that  instead  of  D  we  are  using 
68,  the  ASCII  code  for  D: 

PB   10    A*=CHR»t27)+"i:81;6ap" 

Run  the  program,  enter  DOS,  and 
TYPE  the  program.  Uppercase  Q 
should  again  produce  a  D. 

40  Function  Keys 

Now  let's  create  some  extra  func- 
tion keys.  By  supplying  an  extend- 
ed ASCII  code,  you  can  redefine  the 
ten  function  keys  alone  or  in  con- 
junction with  the  Ch-1,  Shift,  or  Alt 
keys.  That  comes  to  four  sets  of  ten, 
or  40  keys.  Rerun  the  example  pro- 
gram after  changing  line  10  as 
shown  here: 

AS  10  A*=CHR*(27)+"i:0;a4;  "+CHR*( 
34)+"DIR"+CHR*(34)+"; 13p" 

The  following  text  file  is  created: 

ESC  [0;84;"DIR",-p 

The  0  before  the  84  tells  the  com- 
puter to  look  for  an  extended  key- 
code — a  code  that  signals  a  special 
key  combination.  The  extended 
keycode  84  represents  Shift-Fl. 
What  we've  done  is  redefine  this 
key  combination  so  that  it  prints 
DIR  followed  by  a  carriage  return. 
Run  the  program,  exit  to  DOS,  and 
type  KEY.TXT  again.  Hold  down 
Shift  and  press  Fl:  the  disk  (directory 
is  displayed. 

Note  the  number  13  just  before 
the  p  in  this  character  sequence. 
This  is  the  ASCII  code  for  Return. 
Adding  this  character  to  the  end  of 


a  character  sequence  has  the  same 
effect  as  pressing  RETURN  man- 
ually on  the  keyboard.  The  com- 
puter types  the  letters  D-I-R,  then 
issues  a  Return  to  carry  out  the 
command.  You  can  find  a  complete 
list  of  all  the  extended  keycodes  on 
page  G-7  of  the  IBM  BASIC  manual. 

Screen  Modes  And  Colors 

Using  a  similar  method,  you  can 
also  change  the  screen  color  or  shift 
to  a  different  screen  resolution.  To 
change  colors,  replace  the  lower- 
case p  in  line  10  with  a  lowercase  m, 
and  supply  an  appropriate  color 
number.  For  instance,  change  line 
10  as  shown  here  and  create  a  new 
KEY.TXT  file: 

EH    10   fl*=CHR«(27)+"C37;44m" 

Now  the  program  creates  this  text 
file: 

ESC  [37,-44m 

When  this  file  is  TYPEd  from  DOS 
the  screen  turns  blue. 

The  same  procedure  works  for 
changing  the  screen  mode.  Change 
line  10  to  this  (note  that  an  h  is 
substituted  for  the  m  in  the  preced- 
ing example): 

BE    10    fl«=CHR«(27>+"i:  =  lh" 

When  you  TYPE  the  resulting  file 
from  DOS,  the  screen  goes  into  40 
X  25  color  text  mode.  To  obtain 
320  X  200  color  graphics  mode,  sim- 
ply change  the  number  1  in  line  10 
to  a  4.  Pages  13-9  and  13-10  in  the 
DOS  2.0  manual  contain  a  com- 
plete listing  of  all  the  numbers  for 
different  screen  modes  and  color 
combinations, 

The  custom izations  you  create 
using  these  techniques  will  stay  in 
effect  as  long  as  you  are  working  in 
DOS  or  a  DOS-related  program 
such  as  DEBUG  or  EDLIN.  If  you're 
tired  of  the  normal  white-on-black 
screen  display,  this  simple  tech- 
nique can  bring  a  welcome  change. 
Note,  however,  that  these  changes 
disappear  if  you  reboot  the  com- 
puter, go  to  BASIC,  or  run  an  appli- 
cation that  imposes  its  own 
definitions  on  the  system.  ® 
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Advanced  Programming 
On  The  Atari  ST 


Writing  sophisticated  programs  on 
the  Atari  Sf  requires  a  more  thorough 
understanding  of  the  computer's  op- 
erating system  than  was  necessary  on 
earlier  machines.  This  article  is  an 
introduction  to  the  various  operating 
system  routines  available  to  ST  pro- 
grammers. It  is  an  excerpt  from 
COMPUTEI's  ST  Programmers 
Guide  (by  the  editors  of  COMPUTE! 
Publications.) 


It  seems  quite  natural  to  move  the 
mouse  pointer  to  an  icon,  click  on  it, 
and  then  double-click  to  open  the 
window.  Often  you  can  choose  op- 
tions from  menus  at  the  top  of  the 
screen  by  simply  pointing  and 
clicking.  Click  on  the  menu  bar  and 
you  can  move  the  window  around. 
You  can  resize  it,  expand  it  to  fill 
the  screen,  or  make  the  window  gc 
away,  all  with  a  few  clicks  of  the 
mouse. 

Making  things  simple  for  the 
user  requires  a  wide  variety  of  fairly 
complex  routines  for  handling  in- 
put, output,  graphics,  and  so  on, 
These  routines  are  invisible  to  the 
user,  who  simply  moves  the  mouse 
to  point  and  click.  But  as  a  program- 
mer, you  may  find  it  helpful  to  gain 
some  acquaintance  with  the  built-in 
TOS  and  GEM  routines.  The  more 
you  know  about  how  they  work, 
the  more  control  you  will  have  over 
the  machine  and  the  more  power 
you  can  put  into  programs. 

You  can  call  many  of  these 
routines  in  BASIC  with  the 
GEMSYS  or  VDISYS  commands, 
but  to  get  the  maximum  speed  and 
power  from  your  ST,  you'll  need 
either  a  C  compiler  or  a  machine 


language  assembler. 

Alphabet  Soup 

We'll  be  referring  to  the  various 
collections  of  routines  by  their  ini- 
tials; TOS,  VDI,  AES,  and  so  on. 
We'll  first  look  at  what  they  are  and 
what  they  do. 

T/je  Operating  System  (TOS)  is 
either  built  into  your  ST  computer 
in  ROM  or  on  a  TOS  boot  disk.  The 
most  identifiable  element  of  this 
operating  system  is  the  Graphics 
Environment  Manager  (GEM)  desk- 
top. However,  the  operation  of  TOS 
involves  the  interplay  of  many  dif- 
ferent, specialized  components. 
The  first  step  toward  understanding 
GEM  and  TOS  is  to  learn  the  name 
and  function  of  each  of  the  parts. 

The  desktop  environment  is 
actually  a  special  type  of  GEM  ap- 
plication, which  exists  only  to  per- 
form file  operations,  including 
running  other  GEM  applications. 
Every  function  that  it  performs, 
from  examining  disk  directories  to 
running  other  applications,  can  be 
duplicated  by  any  GEM  application 
using  the  facilities  of  the  AES,  VDI, 
and  GEMDOS. 

The  GEM  Virtual  Device  Inter- 
face (VDI)  provides  low-level 
graphics  display  and  mouse  input 
routines.  This  routine  library  in- 
cludes primitive  drawing  opera- 
tions like  line,  marker,  circle,  and 
polygon,  as  well  as  display  man- 
agement routines  like  clipping  and 
block  image  copying. 

The  GEM  Application  Environ- 
ment Services,  AES  for  short,  per- 
forms higher-level  graphic  and  data 
management  operations  for  main- 
taining the  GEM  desktop  environ- 


ment. Built  on  top  of  the  GEMDOS 
file  system  and  the  GEM  VDI,  the 
AES  routines  make  it  much  easier 
for  programs  to  perform  mouse  and 
window  operations. 

The  Disk  Operating  System 
GEMDOS  performs  character- 
oriented  file  and  device  input/out- 
put (I/O).  Many  of  its  routines  are 
used  by  the  GEM  AES.  GEM  appli- 
cations can  also  use  GEMDOS  for 
file  access  and  for  device  opera- 
tions. For  the  actual  low-level  oper- 
ations, GEMDOS  calls  the  Basic 
Input/Output  System  (BIOS),  a 
group  of  routines  which  perform 
machine-specific  tasks  on  the  ST. 
The  Atari  XBIOS  provides  addition- 
al machine-specific  operations. 
They  are  not  used  by  GEMDOS, 
but  are  available  to  applications 
which  need  routines  not  available 
through  GEMDOS  or  the  GEM 
BIOS. 

AES  In  Detail 

When  you  double-click  on  an  appli- 
cation's icon,  the  desktop  starts  exe- 
cuting that  application.  Although 
you  can  move  or  resize  an  applica- 
tion's window,  its  output  appears 
only  in  that  window.  An  applica- 
tion can  redraw  its  window  when  it 
is  partially  covered  by  an  accessory 
without  overwriting  the  accessory's 
window.  When  you  click  on  the  box 
at  the  upper  left  of  an  application's 
window,  the  application  stops  exe- 
cuting and  the  desktop  returns. 

All  of  these  operations  would 
be  much  harder  to  perform  without 
the  support  of  the  AES,  which  is 
composed  of  a  process  dispatcher,  a 
screen  manager,  a  desk  accessory 
buffer,  and  11  subroutine  libraries. 
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The  process  dispatcher  allows  one 
application  and  several  accessories 
to  wait  for  a  user  action  simulta- 
neously, a  limited  form  of  multi- 
tasking. When  the  system  is 
booted,  the  accessory  buffer  is  load- 
ed with  accessories.  The  process 
dispatcher  suspends  all  accessories 
until  a  menu  item  for  one  of  them  is 
selected. 

The  procedures  in  the  subrou- 
tine libraries  support  common  op- 
erations on  the  application 
environment,  the  desktop.  An  ap- 
plication could  perform  most  desk- 
top operations  without  the  AES, 
using  the  same  VDI  routines,  but 
the  standard  AES  routines  make 
the  job  considerably  less  difficult. 
This  is  a  powerful  motivation  for 
programmers  to  make  user  inter- 
faces more  alike,  so  the  programs 
are  easier  to  learn  and  use.  None- 
theless, nonstandard  interfaces  can 
be  built  where  needed,  using  either 
VDI  or  lower-level  AES  routines. 

While  the  information  present- 
ed here  is  not  a  thorough  treatment 
of  the  AES,  it  is  intended  to  be  a 
concise  overview  of  the  whole  li- 
brary. It  should  give  you  some  idea 
of  how  the  AES  is  organized,  what 
its  constituent  parts  are  and  how 
they  interact,  and  what  facilities  are 
available  to  the  GEM  programmer. 
More  specific  details  about  each 
routine's  parameters  and  their  val- 
ues can  be  found  in  the  Digital 
Research  GEM  literature  and  in 
sample  GEM  programs. 

Application  Library 

The  application  library  is,  in  effect, 
the  gateway  to  the  rest  of  the  AES. 

Its  appl init  routine  is  used  by  an 

application  to  register  with  the  AES 
and  obtain  a  process  ID.  It  also  teUs 
the  AES  to  set  up  data  structures  to 
keep  track  of  this  application  or 
accessory.  When  the  program  has 
finished,  the  appLexit  routine  tells 
the  AES  to  deallocate  the  ID  num- 
ber and  data  structures  for  this 
application. 

When  waiting  for  user  input 
from  the  mouse  or  keyboard,  a  pro- 
gram can  call  one  of  the  routines  in 
the  event  library  instead  of  waiting 
in  a  loop.  Besides  saving  the  pro- 
grammer from  writing  a  few  more 
lines  of  code,  a  call  to  the  event 
library  freezes  the  application  and 
allows  possible  multitasking,  if  an 


event  for  another  frozen  process  oc- 
curs first.  Calls  are  available  to  wait 
for  keyboard,  mouse  button,  mes- 
sage, or  timer  events.  Messages  in- 
dicating that  some  action  must  be 
performed — like  redrawing  or 
moving  a  window — are  usually 
awaited  with  an  event  library  call. 
The  routine  most  commonly  used  is 
evnt_multi,  which  allows  an  appli- 
cation to  wait  for  more  than  one 
event  at  once. 

The  menu_bar  routine,  in  the 
menu  library,  is  used  to  display  or 
erase  the  menu  bar.  Another  rou- 
tine, menu_register,  is  called  by 
desk  accessories  to  add  a  name  to 
the  Desk  menu.  Routines  are  also 
available  to  enable  and  disable 
menu  items,  to  change  the  names  of 
menu  items,  and  to  display  a  menu 
item  in  reverse  video  (as  a  selected 
item). 

Windows 

The  single  most  distinguishing  fea- 
ture of  the  GEM  operating  environ- 
ment is  the  window.  The  output  of 
applications  and  accessories  run- 
ning on  the  ST  is  displayed  on  the 
screen  in  separate  windows,  many 
of  which  can  be  moved  or  changed 
in  size  with  the  mouse.  There  can 
be  as  many  as  eight  windows  on 
the  screen  at  once,  and  they  can 
overlap  in  any  way,  but  applica- 
tions are  advised  not  to  use  more 
than  four  of  them  if  the  Desk  menu 
is  displayed.  Since  desk  accessories 
need  to  have  windows  available 
when  they  are  activated,  it's  best  to 
reserve  four  of  the  available  win- 
dows for  accessories.  The  routines 
in  the  window  library  perform  ser- 
vices which  are  useful  in  the  man- 
agement of  these  windows. 

The  wand_create  and  wind— 
delete  routines  are  used  to  create 
windows  and  to  dispose  of  them. 
When  an  application  calls  wind_ 
create  to  generate  a  new  window,  it 
establishes  the  maximum  possible 
size  of  the  window  and  the  features 
with  which  the  window  is  en- 
dowed, such  as  sliders,  a  name  bar, 
a  full  screen  box,  and  so  forth.  This 
routine  returns  a  numeric  identifier 
for  the  new  window,  called  a  han- 
dle. The  wind_open  call  actually 
displays  the  window  on  the  screen 
at  a  particular  location.  Conversely, 
a  window  can  be  hidden  with  the 
wind_close  routine.  The  expanding 


and  shrinking  box  effects  that  are 
seen  when  many  applications  open 
and  close  windows  are  not  part  of 
the  window  library  subroutines. 
Rather,  they  are  independent  ef- 
fects routines  from  the  graphics  li- 
brary, which  an  application  can  call 
for  a  little  more  flash. 

Several  window  library  rou- 
tines provide  information  about 
windows.  Wind_get  can  provide 
information  about  windows,  in- 
cluding a  window's  position  and 
size,  and  the  positions  of  its  vertical 
and  horizontal  sliders  if  it  is  so 
equipped.  It  can  also  return  the 
handle  of  the  top  window  on  the 
screen  (the  window  with  the  high- 
est priority),  as  well  as  the  set  of 
rectangles  that  make  up  the  visible 
portion  of  a  window's  work  area, 
which  can  be  a  irregular  shape  if  a 
window  is  partially  covered  by  an- 
other. The  wind  set  routine  is  used 
to  change  the  size  and  position  of  a 
window,  the  positions  of  its  sliders 
or  its  name,  or  the  set  of  controls 
attached  to  the  window.  It  can  also 
move  one  window  to  the  top  of  the 
list  of  windows. 

To  determine  which  window 
the  mouse  currently  points  to,  the 
wind — find  routine  can  be  called. 
Wind_calc  doesn't  operate  on  any 
particular  window,  but  instead  de- 
termines the  work  area  size  of  a 
hypothetical  window,  given  its  ex- 
ternal size  and  the  set  of  controls  it 
contains.  It  can  also  perform  the 
reverse  calculation,  determining  the 
external  dimensions  of  a  window. 

The  wind—Update  routine  tells 
AES  that  an  application  is  going  to 
draw  in  a  window  or  that  an  update 
is  finished.  When  a  window  is  be- 
ing updated,  no  alerts,  dialogs,  or 
menus  will  be  displayed  in  front  of 
the  window. 

Objects 

Most  items  on  the  GEM  desktop, 
including  menus,  alerts,  and  even 
windows,  are  organized  as  object 
trees.  GEM  objects  include  icons, 
strings,  graphic  boxes,  and  editable 
text  fields.  7>-^^5— linked  lists — of 
these  objects  can  be  managed  with 
the  routines  in  the  object  library. 
This  library  includes  routines  to 
add  and  delete  objects  from  a  tree, 
to  compare  the  mouse's  position  to 
that  of  an  object,  to  let  the  user  edit 
a  text  object,  and  to  draw  the  entire 
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tree  on  the  screen.  Object  trees  are 
usually  stored  in  a  file  separate 
from  the  application  that  uses 
them.  These  resource  files  can  be 
handled  with  the  resource  library, 
described  below. 

A  forjn  is  a  standard  mecha- 
nism for  getting  information  from 
the  user.  A  form  usually  includes  at 
least  one  modifiable  object,  like  a 
text  string  or  a  button.  In  the  case  of 
a  dialog,  one  type  of  form,  the  pro- 
gram needs  to  call  the  form_dial 
routine  to  indicate  that  a  dialog  is 
beginning,  and  then  draw  the  ob- 
ject tree  which  comprises  the  dia- 
log, using  the  objc_draw  routine 
from  the  object  library.  The 
form_do  routine  should  then  be 
called  to  perform  the  interaction. 
Another  call  to  form_dial  restores 
the  area  of  the  screen  where  the 
dialog  took  place. 

Two  other  forms,  the  alert  and 
the  error  box,  are  more  limited  in 
their  content  and,  accordingly,  easi- 
er to  implement.  In  the  case  of  an 
alert,  the  AES  builds  an  object  tree 
containing  the  text  string  passed  in 
the  call  to  form_alert  and  handles 
all  the  details  of  display  and  inter- 
action during  that  one  call.  The  er- 
ror box  is  even  simpler.  All  that  is 
needed  is  the  number  of  a  GEM- 
DOS  error  code.  An  object  tree  con- 
taining the  text  which  corresponds 
with  that  error  will  be  displayed 
when  form—error  is  called. 

Special-Purpose  Libraries 

The  AES  graphics  library  routines 
are  lower-level  interfaces  to  the  dis- 
play screen  and  mouse.  The  most 
commonly  used  routine  in  this  li- 
brary is  graf_Jiandle,  which  returns 
the  handle — the  identifier — for  the 
currently  opened  VDI  workstation. 
Every  GEM  application  must  call 
this  routine  at  its  start,  after  calling 
appl_init,  since  the  handle  is 
needed  to  open  a  new  VDI  virtual 
workstation  to  draw  in.  It  is  also 
necessary  for  calling  VDI  drawing 
routines. 

To  manage  the  mouse  at  a  low 
level,  the  graf_mouse  routine  can 
be  used  to  change  the  shape  of  the 
cursor.  Graf_mkstate  monitors  the 
positions  of  the  mouse,  its  buttons, 
and  the  keyboard,  while  graf_ 
watchbox  modifies  the  state  of  a 
box  object  depending  on  whether 
or  not  the  mouse's  pointer  is  inside 


or  outside  the  box. 

Several  common  graphic  ef- 
fects are  also  available  through  the 
graphics  library.  Graf— rubberbox 
draws  a  rectangle  between  a  fixed 
point  and  the  mouse's  position, 
changing  the  size  of  the  box  as  the 
mouse  moves,  A  moving  box  of 
fixed  size  attached  to  the  mouse's 
position  can  be  animated  with 
graf—drawbox,  while  graf— move- 
box  just  moves  a  box  between  two 
positions  without  any  consider- 
ation of  the  mouse.  Graf_growbox 
and  graf—shrinkbox  are  two  anima- 
tion routines  which  can  be  called 
when  opening  and  closing  win- 
dows, respectively,  to  show  a  box 
which  moves  and  changes  size. 

The  file  selector  library  con- 
tains but  one  lonely  routine,  fsel_ 
input.  This  displays  a  standard  dia- 
log box,  called  a  file  selector,  on  the 
screen  and  allows  the  user  to 
choose  a  filename  from  the  directo- 
ries of  the  various  disks  in  the  sys- 
tem. When  the  interaction  is 
complete,  it  returns  the  pathname 
of  the  selected  file  to  the  calling 
application. 

The  objects  that  an  application 
uses — its  menus,  dialogs,  and  so 
forth — can  be  stored  separately 
from  the  application's  code  in  a  re- 
source file.  Resource  files  contain- 
ing these  objects  are  created  with 
the  GEM  Resource  Construction  Set 
program.  The  resource  library  can 
then  be  used  to  load  this  file  and  to 
access  its  contents. 

The  rsrc—load  routine  searches 
for  a  resource  file  with  a  particular 
name  and  attempts  to  load  it  into 
memory.  Rsrc_gaddr  can  be  used 
by  the  application  to  find  the  ad- 
dress of  a  particular  object  or  tree  in 
the  resource  file  that  has  been  load- 
ed. To  allow  applications  to  run 
with  different  screen  resolutions  in 
different  display  modes,  all  the 
sizes  and  positions  of  objects  in  a 
resource  file  can  be  expressed  in 
characters  instead  of  pixels.  When 
the  resource  file  is  loaded,  rsrc^obfix 
must  be  called  to  convert  the  sizes 
into  pixels  in  the  current  display 
mode.  When  a  resource  file  is  no 
longer  needed,  rsrc_free  deallo- 
cates the  memory  space  that  the 
resource  occupies. 

Using  GEMDOS 

For  many  kinds  of  programs,  the 


windowed  GEM  environment 
might  not  be  needed,  so  an  alterna- 
tive is  available.  A  complete  set  of 
character-oriented  I/O  functions  is 
provided  in  the  GEMDOS  library. 
Unlike  many  operating  systems, 
GEMDOS  is  easily  called  from  lan- 
guages like  C.  Instead  of  taking  pa- 
rameters in  the  microprocessor's 
internal  registers,  which  are  not  di- 
rectly controllable  in  high-level 
languages,  parameters  are  passed 
to  these  routines  on  the  stack  in  the 
same  way  that  parameters  are 
passed  between  C  functions. 

Even  GEM  applications  need 
to  call  GEMDOS  at  least  occasion- 
ally. For  instance,  the  AES  scrap 
facility  expects  applications  to  store 
and  read  the  contents  of  the  Clip- 
board directly  from  disk.  Any  pro- 
gram which  handles  some  kind  of 
document — a  spreadsheet,  word 
processor,  database,  and  so  on — 
will  also  need  to  call  GEMDOS  to 
load  and  store  files. 

To  call  GEMDOS,  the  68000 
microprocessor's  TRAP  #1  instruc- 
tion must  be  executed.  The  last 
word  pushed  on  the  stack  gives  the 
number  of  the  routine  requested.  If 
the  routine  returns  a  value,  it  will 
be  stored  in  the  68000's  DO  register. 
Although  this  register  cannot  be  di- 
rectly read  by  a  C  program,  C  func- 
tions also  return  results  in  this 
register.  A  GEMDOS  call  can  return 
a  value  in  exactly  the  same  manner 
as  a  call  to  another  C  function. 

Process  Functions 

00        PtennO( ).  Tenninate  with  a  return 
code  of  0. 

49        Plennre9(9ize,cotle).  Terminate,  but 
keep  the  program's  code  in  memo- 
ry. A  32-bit  parameter  indicates 
how  much  memory  should  remain 
allocated.  A  16-bit  parameter  gives 
the  return  code.  This  function  is 
used  by  background  programs,  like 
print  spoolers,  to  give  up  control  of 
the  foreground  process. 

75  Pexec(runflag,pathnaiiie,tail,en- 
viron).  Load  a  program  from  disk. 
A  one-word  parameter  indicates 
whether  it  should  be  run  or  not 
(00  =  run,  03  =  load  only).  The  sec- 
ond parameter  is  a  pointer  to  the 
pathname  of  the  file.  Parameter  3 
points  to  a  command  tail  for  the 
program,  and  parameter  4  is  a 
pointer  to  its  environment  strings.  If 
the  file  was  loaded  only,  the  result 
of  the  function  is  Ihe  load  address. 
If  it  was  executed,  the  result  is  its 
return  code. 

76  Pterm(code).  Terminate,  returning  a 
one-word  return  code. 
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Device  I/O  Functions 

01  Cconin( ).  Read  a  character  from  the 
console.  No  parameters  are  needed. 

02  Cconout(char).  Write  a  character  to 
the  console.  A  single,  word-length 
parameter  contains  the  character  in 
its  low  byte. 

03  CauxinC ).  Read  a  character  from  the 
auxiliary  device. 

04  Cau3cout(char).  Write  a  character  to 
the  auxiliary  device. 

05  Cprnout(char).  Write  a  character  to 
the  printer. 

06  Crawio(char).  If  the  parameter  is  not 
$OOFF,  write  it  as  a  character  to  the 
console;  otherwise,  return  a  character 
from  the  console  with  no  echo,  in- 
cluding control  characters. 

07  Crawcinf ).  Read  a  character  from 
the  console  with  no  echo -and  no 
control  character  trapping. 

08  Cnccin( ).  Read  a  character  from  the 
console  with  no  echo,  but  trap  "C,  "S, 
and  'Q. 

09  Cconws(8tring).  Write  a  zero- 
terminated  string  to  the  console.  The 
long  word  parameter  contains  the 
address  of  the  string. 

10  Cconrsftjuffer).  Input  a  line  of  char- 
acters from  the  console,  allowing  line 
editing.  The  iong  word  parameter 
contains  the  address  of  a  buffer,  the 
first  byte  of  which  holds  the  buffer's 
length.  The  second  byte  of  the  buffei 
will  get  the  length  of  the  string,  and 
the  string  will  be  zero-terminated. 

11  Cconi8( ).  Check  the  status  of  the 
console  input  device.  Returns  —  1  if  a 
character  is  waiting,  0  if  none  is 
available. 

16  Cconos( ).  Check  the  status  of  the 
console  output  device.  Returns  —  1  if 
it  is  ready  to  receive  a  character,  0  if 
it  is  not  ready. 

17  Cpmosf ).  Check  the  status  of  the 
print  device. 

18  Cauxis( ).  Check  the  status  of  the 
auxiliary  input  device. 

19  Cauxos( ).  Check  the  status  of  the 
auxiliary  output  device. 

Time  Functions 

42  Tgetdalet ).  Return  the  current  sys- 
tem date.  Bits  0-4  of  the  result  con- 
tain the  date,  5-8  contain  the  month, 
9-15  contain  the  year  minus  1980 
(up  to  2099). 

43  Tsetdate(date).  Set  the  current  sys- 
tem date  to  the  word  value  in  the 
parameter. 

44  Tgettimef).  Return  the  current  sys- 
tem time.  Bits  0-4  contain  sec- 
onds/2, 5-10  contain  minutes,  11-15 
contain  hours. 

45  Tsettime(time).  Set  the  current  sys- 
tem time  to  the  word  value  in  the 
parameter. 

System  Functions 

32       Super( ).  Enter  68000  supervisor 

mode. 
48       Sversion( ).  Return  the  GEM  version 

number. 


Drive  Functions 

14       DBetdrv(drive).  Set  the  default  disk 

drive  to  the  value  passed  as  a  param- 
eter. Values  0-15  indicate  drives 
A-P. 

25       Dgetdrvf ).  Return  the  value  of  the 
current  default  drive. 

54       Dfree(buffcr,drive).  Ask  for  infor- 
mation about  a  disk.  The  first  param- 
eter contains  the  address  of  buffer  to 
receive  the  information.  The  second 
parameter  is  a  16-bit  value  indicating 
the  drive  being  queried.  The  buffer 
gets  four  values:  free  space,  number 
of  clusters  on  drive,  size  of  sector  in 
bytes,  size  of  cluster  in  sectors. 

57  Dcreate(pathname).  Create  a  sub- 
directory. The  long  word  parameter 
contains  the  address  of  null-termi- 
nated string  for  the  pathname  of  the 
new  directory.  If  the  result  is  non- 
zero, the  operation  failed. 

58  Ddeletefpathname).  Delete  a 
subdirectory. 

59  Dsetpathfpathname).  Set  the  current 
default  pathname  to  the  string  ad- 
dressed by  the  parameter. 

71       Dgetpathft)uffcr,drive).  Store  the 
current  directory  for  a  drive  in  a  64- 
byte  buffer  addressed  by  the  first  pa- 
rameter. The  second  parameter 
indicates  which  drive  (O0=default 
drive,  01 -10  =  A-P). 

File  Functions 

26      Fsetdta(DTAbuffer).  Use  the  long 

word  parameter  to  set  the  address 
for  a  44-byte  file  data  buffer.  This 
buffer  is  used  only  when  searching 
for  a  file  (routines  78  and  79). 
47       Fgetdtaf ).  Rehim  the  address  of  the 
file  data  buffer. 

60  Fcreate(pathname,attribtites).  Create 
a  file  named  by  the  string  addressed 
by  the  first  parameter.  An  additional 
16-bit  parameter  indicates  the  file's 
attributes  {01=RO,  02  =  hidden).  The 
result  is  a  16-bit  file  handle. 

61  Fopen(pathname,access).  Open  the 
file  named  by  the  string  addressed 
by  the  first  parameter.  An  additional 
16-bit  parameter  indicates  type  of  ac- 
cess (00  =  read  only,  01  =  write  only, 
02  — read  and  write).  The  handle  of 
the  file  is  returned  as  the  function's 
result. 

62  Fclose(handle).  Close  a  file.  The 
handle  of  the  file  is  passed  as  a 
parameter. 

63  Fread(handle,counl,buffer).  Read 
from  a  file.  The  first  parameter  is  the 
handle  of  an  open  file  and  the  sec- 
ond is  a  four-byte  count  for  the 
transfer.  The  third  parameter  is  the 
address  of  a  buffer  to  which  the 
bytes  are  to  be  read.  The  result  re- 
turned by  the  function  is  the  number 
of  bytes. 

64  Fwrite(handle,count,buffer).  Write 
to  a  file.  The  function  uses  the  same 
parameters  as  Fread. 

65  Fdelete(pa{hn3me).  Delete  the  file 
named  by  the  string  pointed  to  by 
the  parameter. 


66  Fseek(count,handle,operation). 

Move  the  file  pointer.  The  first  pa- 
rameter is  a  signed  long  word  repre- 
senting a  byte  count.  The  second 
parameter  is  a  file  handle.  The  third 
indicates  the  meaning  of  the  byte 
count  (00  =  absotute  position  A^bytes 
after  the  start  of  file,  01 -A^  bytes 
forward  or  backward  from  current 
position,  02  =  N  bytes  before  the  end 
of  the  file).  As  a  result,  it  returns  the 
absolute  file  pointer  posifion. 

67  Faltrib(pathnaine,opcration,attri- 
butes).  Read  or  change  the  attributes 
of  file.  The  first  parameter  is  a  point- 
er to  a  pathname  for  the  file.  The 
second  parameter  is  00  for  get,  01  for 
set.  The  third  parameter  is  a  word 
containing  the  attributes. 

69  Fdup(handle).  Return  a  copy  of  the 
file  handle  passed  as  a  parameter. 

70  Fforce(handlel,handle2).  Force  the 
first  parameter,  a  file  handle,  to  point 
to  same  device  as  the  second  param- 
eter, also  a  handle. 

78  Fsfirst(pathnaine,attribute8).  Search 
for  the  first  file  which  matches  the 
search  string  addressed  by  parameter 
1.  The  string  can  contain  the  *  and  ? 
wildcards.  Parameter  2  contains  the 
attribute  flags  of  the  file.  The  44-byte 
file  data  buffer  set  by  Fsetdta  holds 
size  of  file  in  bytes  26-29,  and  the 
file's  name  and  type  in  bytes  30-43, 

79  Fsnext( ).  Search  for  another  match 
to  the  file,  using  the  data  buffer  at 
DTA.  This  function  takes  no 
parameters. 

86  Fiename(0,oldname,newname).  Re- 
name a  file.  Parameter  1  is  a  word 
with  the  value  0;  parameter  2  is  a 
pointer  to  the  old  pathname  of  the 
file;  parameter  3  points  to  the  new 
pathname. 

87  FdafLme(buffer,handle,operation). 
Get  or  set  a  file's  date  and  time 
information.  Parameter  1  is  a  pointer 
to  a  two-word  buffer — a  time  word 
and  a  date  word.  Parameter  2  is  a 
file  handle,  and  parameter  3  is  a 
word  which  indicates  which  opera- 
tion to  perform  (00  =  set,  01=get). 

Memory  Functions 

72  Malloc(count).  Allocate  some  num- 
ber of  bytes  to  the  calling  applica- 
tion. The  length  of  the  block 
requested  is  passed  in  the  parameter, 
a  long  word.  It  returns  a  value  of  0  if 
the  request  fails,  or  the  address  of 
the  block  allocated  if  it  succeeds.  If 
the  parameter  has  a  value  of  —1,  the 
number  of  free  bytes  is  returned 
instead. 

73  Mfree(addres5).  Free  a  block  of 
memory.  The  four- byte  parameter 
should  contain  the  address  of  the 
block. 

74  Mshrink(0,addTess,length|.  Reduce 
the  size  of  an  allocated  block  of 
memory.  The  first  parameter  must  be 
a  word  with  value  0,  the  second  pa- 
rameter is  the  address  of  the  block, 
and  the  third  parameter  is  the  num- 
ber of  bytes  which  should  remain  in 
the  block.  © 
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Block  PEEK  And  POKE 

For  Atari 


Here  is  a  convenient  way  to  eliminate 
long  initialization  delays  caused  by 
P0KEi7ig  large  amounts  of  data  into 
memory.  It  works  entirely  in  BASIC 
and  works  very  fast.  The  demonstra- 
tion program  moves  the  entire  char- 
acter set  in  an  instant  and  redefines 
the  keyboard  as  a  Dvorak  layout.  This 
technique  can  be  used  on  all  Atari 
400/800,  XL,  and  XE  computers  and 
is  recommended  for  intermediate  to 
advanced  BASIC  programmers. 


PEEK  and  POKE  are  among  the 
fastest  commands  in  BASIC.  But 
because  they  handle  only  one  byte 
at  a  time,  it  can  take  a  while  to 
transfer  large  blocks  of  data  from 
one  area  of  memory  to  another. 
We've  all  waited  while  programs 
with  long  loops  PEEK  a  series  of 
memory  locations,  or  READ  num- 
bers from  DATA  statements,  and 
then  POKE  the  numbers  into  mem- 
ory somewhere  else.  Perhaps  the 
program  is  redefining  the  character 
set,  or  setting  up  player/missile 
graphics,  or  building  a  machine 
language  subroutine,  or  creating  a 
new  keyboard  definition  table. 
Whatever's  happening,  it  slows 
things  down. 

Lengthy  FOR-NEXT  loops 
with  PEEK  and  POKE  or  READ  and 
POKE  are  the  primary  cause  for 
tedious  delays  while  these  pro- 
grams initialize.  No  one  likes  to  sit 
staring  at  a  blank  screen  for  very 
long.  The  program  usually  prints  a 
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message  like  "Please  wait  while  1 
initialize,"  but  isn't  there  a  better 
way?  Sometimes  a  machine  lan- 
guage subroutine  can  help  speed 
things  up,  but  if  you  can't  write  in 
ML  yourself,  finding  a  routine  ex- 
actly suited  to  the  needs  of  your 
program  can  be  difficult. 

Fortunately,  Atari  BASIC'S 
flexibility  provides  a  solution.  It's 
possible  to  transfer  large  blocks  of 
data  from  Read  Only  Memory 
(ROM)  or  program  lines  to  any  area 
of  Random  Access  Memory  (RAM) 
virtually  instantaneously — with 
BASIC  commands  only.  The  secret 
is  called  the  string  offset  technique. 
By  modifying  the  variable  value  ta- 
ble (a  section  of  memory  which 
keeps  track  of  BASIC  program  vari- 
ables), you  can  redefine  any  string 
and  relocate  it  anywhere  in  memory. 

Here's  a  quick  overview  of 
how  the  technique  works.  Suppose 
you  set  up  a  string  called  ROMS 
which  contains  a  block  of  data 
found  in  ROM — the  character  set 
data,  for  instance.  Next,  you  set  up 
another  string  called  RAM$  in  the 
area  of  RAM  to  which  you  want  to 
move  the  data  contained  in  ROM$. 
To  copy  the  data  from  ROM  to 
RAM,  then,  all  that's  required  is  the 
simple  statement  RAM$=ROM$, 
Is  that  easy  enough?  Using  the 
string  offset  technique,  any  portion 
of  ROM— or  all  of  ROM,  if  you 
make  the  strings  big  enough — can 
be  copied  into  RAM  in  the  blink  of 
an  eye. 


The  Variable  Value  Table 

To  use  the  string  offset  technique, 
you  have  to  learn  how  to  modify 
the  variable  value  table  and  the 
string  offset  pointers.  This  isn't  too 
difficult  if  you  tackle  the  job  one 
step  at  a  time. 

The  first  step  is  to  make  things 
easier  for  ourselves  by  insuring  that 
ROMS  and  RAM$  are  the  first  vari- 
ables found  in  the  table.  We  can  do 
this  by  making  ROM$  and  RAM$ 
the  very  first  variables  defined  in 
the  program.  Enter  NEW  as  a  direct 
command  before  typing  the  first 
program  line  containing  these 
names.  Then  dimension  the  vari- 
ables in  this  order: 

10  DFM  ROM$(;engfW,RAMS(iewgfft) 

where  lefigfh  is  the  length  of  each 
string  in  characters  as  required  by 
your  program.  If  you're  moving 
character  set  data,  for  instance, 
you'd  dimension  these  strings  to 
the  number  of  bytes  in  the  character 
set — 1024  bytes  in  graphics  mode  0 
or  512  bytes  in  modes  1  and  2. 
(Usually  you'll  dimension  ROM$ 
and  RAM$  to  the  same  length  if 
you're  transferring  a  block  of 
memory.) 

However,  if  you  are  using  an 
Atari  400  or  800  with  the  old  BASIC 
revision  A,  a  major  caveat  applies. 
You  cannot  move  blocks  of  memory 
that  are  exact  multiples  of  256  bytes. 
Attempting  to  move  blocks  of  this 
size  will  trigger  the  infamous 
BASIC  lockup  bug,  freezing  your 
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computer  until  you  turn  the  power 
off  and  back  on — which  will,  of 
course,  result  in  the  loss  of  your 
program.  [For  more  information  on 
the  lockup  bug,  see  this  month's 
"Readers'  Feedback"  column. -Ed] 
You  can  determine  your  version  of 
BASIC  by  entering  PRINT  PEEK 
(43234).  If  the  value  returned  is 
162,  you  have  revision  A,  If  96  is 
returned,  you  have  revision  B  (built 
into  most  600XL  and  800XL  mod- 
els), and  234  indicates  revision  C, 
available  on  cartridge  from  Atari 
and  built  into  the  XE  models. 

The  string  offset  technique  will 
work  as  described  with  revision  A 
as  long  as  you  make  sure  your  block 
length  is  not  an  exact  multiple  of 
256.  So  for  this  example  you  should 
substitute  1025  instead  of  1024. 
This  will  transfer  an  extra  byte  of 
memory  following  the  character 
set,  but  that  doesn't  cause  any 
problems  and  it  prevents  the  lock- 
up bug  from  biting. 

The  second  step  is  to  make 
BASIC  think  that  ROM$  is  actually 

1024  bytes  long  (remember,   use 

1025  for  revision  A  BASIC).  The 
DIM  statement  reserves  memory 
for  the  string  but  doesn't  actually 
define  the  string.  Use  a  line  like 
this: 

By  defining  the  last  character  in  the 
string  as  a  space,  BASIC  is  forced  to 
treat  ROM$  as  a  1024-character- 
long  string,  even  though  no  other 
characters  have  been  defined. 

The  third  step  is  to  calculate 
the  location  of  the  variable  value 
table  in  memory,  with  a  statement 
like  this: 

30  VT=PEEKa34>  +  PEEK(13S)*256 

The  variable  VT  equals  the  starting 
location  of  the  variable  value  table. 
Each  string  which  is  declared  in  an 
Atari  BASIC  program  has  eight 
bytes  in  this  table.  We'll  see  the 
significance  of  these  bytes  in  a 
moment. 

After  these  variables  are  set  up, 
the  first  eight  bytes  in  the  variable 
value  table  (VT  to  VT+7)  contain 
information  for  ROM$,  and  the 
next  eight  bytes  (VT  +  8  to  VT+15) 
contain  information  for  RAM$. 

Locating  The  Strings 

To  use  the  string  offset  technique, 
we're  primarily  interested  in   the 


third  and  fourth  bytes  for  each  of 
these  two  variables  in  the  variable 
value  table.  The  memory  locations 
for  these  bytes  can  be  expressed  as 
VT+2  and  VT  +  3  for  ROM$,  and 
VT  +  10  and  VT  +  11  for  RAM$. 

What  do  these  bytes  signify? 
Briefly,  each  pair  of  bytes  is  a  low- 
byte/high-byte  combination  that 
indicates  the  relative  displacement 
of  each  string  from  the  starting  lo- 
cation of  the  first  string  in  the  pro- 
gram. Since  we've  made  sure  that 
the  first  string  in  the  program  is 
ROMS,  the  values  stored  in  VT-l-2 
and  VT-H3  for  ROMS  will  both  be 
zero.  And  since  we've  also  made 
sure  that  RAM$  is  the  second  string 
in  the  program,  the  values  stored  in 
VT  +  10  and  VT  +  11  for  RAM$  de- 
pend on  the  length  of  ROMS. 

For  instance,  if  ROMS  is  di- 
mensioned to  1024,  then  the  mem- 
ory which  BASIC  sets  aside  for 
RAMS  must  begin  1024  bytes  after 
the  start  of  ROMS  to  leave  room  for 
ROMS.  Therefore,  the  value  stored 
in  VT  +  10  is  zero,  and  the  value 
stored  in  VT  +  11  is  four.  (Since 
VT+ 11  is  the  high  byte  of  the  off- 
set, it's  multiplied  by  256,  which 
equals  1024.) 

Actually,  the  memory  for 
ROMS  and  RAM$  does  not  begin  at 
these  locations.  Instead,  you  have 
to  add  another  value  indicated  by 
the  string  offset  pointers  at  memory 
locations  140  and  141,  If  you  use 
this  statement: 
40  SF  =  PEEKa40)  +  PEEKa41)*256 

then  the  variable  SF  returns  the 
number  that  should  be  added  to  the 
relative  displacement  values  given 
in  the  variable  value  table,  (Since 
the  relative  displacement  of  the  first 
string  is  zero,  this  means  that  SF 
always  equals  the  address  of  the 
first  string,) 

The  reason  for  this  seemingly 
complicated  arrangement,  inciden- 
tally, is  that  the  computer  can  now 
easily  relocate  strings  as  the  pro- 
gram length  changes  simply  by  al- 
tering the  offset  pointers. 

Setting  The  Table 

Now  it's  clear  how  the  string  offset 
technique  works:  We  can  relocate  a 
string  anywhere  in  memory  by 
merely  POKEing  different  values 
into  its  relative  displacement  indi- 
cators in  the  variable  value  table. 
For  example,  suppose  we  want 


to  move  ROMS  to  the  starting 
memory  address  of  the  standard 
character  set  in  ROM,  which  is  loca- 
tion 57344.  We  subtract  the  amount 
of  the  string  offset  (SF)  from  57344, 
and  convert  the  remainder  into 
low-byte/high-byte  numbers. 
Then  all  we  have  to  do  is  POBGE  LS 
into  VT+2  and  POKE  HS  into 
VT+3,  and  ROMS  is  moved  to  the 
proper  location.  The  statements 
might  look  like  this: 

50  S  =  57344 -SF:HS  =  INT(S/2S6): 

LS-S-HS*256 
60  POKE  VT-l-2,LS:POKE  VT-I-3,HS 

Now  we  can  turn  our  attention 
to  RAMS. 

The  usual  place  to  set  up  a  new 
character  set  is  below  RAMTOP — 
the  memory  location  returned  by 
PEEK(106)*256.  Some  people  prefer 
to  move  RAMTOP  down  by  POKE- 
ing a  lower  number  into  register 
106,  issue  a  new  GRAPHICS  com- 
mand to  set  up  a  new  display  list 
and  screen  memory  below  the  al- 
tered RAMTOP,  and  then  put  the 
new  character  set  above  the  new 
RAMTOP.  There  are  advantages 
and  disadvantages  to  each  method, 
including  a  "RAMTOP  dragon"  to 
watch  out  for.  We'll  stick  to  the 
easiest  method  for  this  example. 
Let's  simply  put  the  new  character 
set  eight  pages  (2048  bytes)  below 
RAMTOP.  This  leaves  enough 
room  for  the  1024 -byte  character 
set,  plus  another  1024  bytes  for  the 
display  list  and  screen  memory  in 
graphics  mode  0, 

We  move  RAMS  to  this  loca- 
tion by  figuring  the  proper  values 
and  POKEing  them  into  VT+10 
and  VT+11: 

70  RAMPAGE  =  PEEKa06)-8 

80  S-RAMPAGE*256-SF:HS  =  INT 

(S/Z56):LS  =  S-HS*2S6 
90  POKE  VH-10,LS:POKE  VT-t-ll,HS 

Finally,  all  that  remains  is  one 
simple  step: 
100  RAMS  =  ROMS 

Instantly,  the  character  set  in 
ROM  is  copied  into  RAM,  where  it 
can  be  customized  to  suit  our 
purposes. 

Two  Potential  Problems 

There  are  two  things  to  watch  out 
for  when  using  the  string  offset 
technique.  First,  if  you  set  up  a 
sti^ng  in  a  section  of  RAM  where 
vital  tables  or  pointers  are  stored. 
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then  do  anything  to  change  the 
contents  of  the  string,  or  press 
BREAK  and  enter  a  direct  command 
(which  causes  BASIC  to  shift 
strings  and  all  their  contents  in 
memory),  the  computer  may  be- 
have very  strangely.  You'll  proba- 
bly have  to  turn  the  machine  off 
and  on  again  to  regain  control. 

Second,  you  cannot  POKE  a 
negative  number  into  the  variable 
value  table  without  getting  an  error 
message.  How,  then,  can  you  move 
a  string  to  a  location  in  memory 
lower  than  the  value  (SF)  indicated 
by  the  offset  pointers?  Simple. 
POKE  the  offset  pointers  to  zero, 
and  POKE  memory  locations  140 
and  141  to  zero.  (Make  sure  you  do 
this  before  relocating  any  strings,  or 
they'll  all  be  moved  again  when 
you  change  the  offset  pointers.)  But 
don't  leave  zeros  in  locations  140  and 
141.  Save  the  original  values  and 
POKE  them  back  in  when  you're 
finished  transferring  the  data. 

A  Dvorak  Demo 

The  program  following  this  article 
demonstrates  the  string  offset  tech- 
nique and  accomplishes  several 
things.  First,  it  copies  the  standard 
character  set  from  ROM  into  RAM 
(eight  pages  below  RAMTOP)  and 
modifies  it  so  that  the  CTRL  key 
characters  can  be  recognized  more 
easily.  If  you  press  CTRL- A,  for 
example,  you  won't  get  the  usual 
graphics  symbol;  you'll  get  an  un- 
derlined A,  so  you  can  see  at  a 


glance  which  keys  to  press  to  type 
that  character.  This  way,  you  can 
enter  ATASCII  (Atari  ASCII)  char- 
acters directly  into  memory  from 
statements  in  program  lines  with- 
out using  DATA  statements  and 
slow,  one-byte-at-a-time  POKEs, 
because  all  the  characters  are  im- 
mediately recognizable.  This  char- 
acter set  modification  is 
accomplished  in  an  eye-blink. 

Second,  the  program  copies 
the  keyboard  definition  table  from 
ROM  and  loads  it  into  memory 
page  6,  a  normally  unused  portion 
of  RAM  from  locations  1536-1791. 
Then  the  program  modifies  the 
keyboard  table  to  create  a  Dvorak 
keyboard  layout.  Designed  by  Au- 
gust Dvorak  after  20  years  of  scien- 
tific study  and  testing,  the  Dvorak 
keyboard  makes  things  as  easy  as 
possible  for  typists,  in  contrast  to 
the  conventional  QWERTY  key- 
board, which  doesn't  put  the  most 
frequently  used  keys  on  the  home 
row.  Many  typists  are  able  to  con- 
vert from  QWERTY  to  Dvorak 
touch-typing  within  a  few  days, 
and  often  find  they  can  type  faster 
with  substantially  fewer  errors. 

The  Dvorak  keyboard  portion 
of  the  program  will  not  work  with 
the  older  400  and  800  models  be- 
cause it  relies  on  the  KEYDEF 
pointer  at  locations  121-122.  This 
pointer  was  added  to  the  improved 
operating  system  in  the  XL  and  XE 
models,  and  is  not  implemented  in 
the  original  Atari  operating  system 


Atari  Dvorak  Keyboard  Layout 


ROMs.  Owners  of  400s  and  800s 
can  still  use  the  redefined  character 
set  portion  of  the  example  by  sim- 
ply omitting  all  lines  numbered 
higher  than  215.  If  you  are  using 
revision  A  BASIC,  you'll  also  need 
to  change  the  1024s  in  lines  10  and 
20  to  1025s. 

Notice  that  this  program  must 
deal  with  the  problem  mentioned 
above:  The  memory  address  1536  is 
lower  than  the  value  for  SF,  so  the 
string  offset  pointers  at  locations 
140  and  141  have  to  be  changed. 

A  FOR-NEXT  loop  is  used  to 
enter  ATASCII  characters  0 
through  26,  so  this  part  of  the  pro- 
gram takes  a  little  longer — almost  a 
whole  second.  You  could  make  it 
run  even  faster  by  typing  the  CTRL 
key  characters  directly  in  string  as- 
signment statements,  as  seen  in 
lines  140  to  170.  This  is  where  the 
new  character  set  could  come  in 
handy. 

As  a  final  bonus,  the  program 
demonstrates  a  customized  key- 
board entry  routine  that  works  fast- 
er than  the  GET  function.  It  does 
this  by  reading  a  hardware  location 
(53769),  then  using  the  keyboard 
conversion  table  located  in  ROM 
(64337  to  64592)  to  translate  the 
keyboard  codes  into  ATASCII 
codes  the  same  way  the  operating 
system  does. 

When  the  program  runs,  it  lets 
you  toggle  back  and  forth  from 
QWERTY  to  Dvorak,  just  like  on  an 
Apple    lie.    Press    SHIFT-ESC    to 
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toggle.  If  you  become  a  real  Dvorak 
fan,  you  can  even  find  keycap  stick- 
ers at  many  office  supply  stores  to 
modify  your  keyboard.  The  accom- 
panying figure  shows  the  Dvorak 
layout. 

Additional  ^fotes 

A  few  modifications  to  the  standard 
Dvorak  layout  were  necessary  be- 
cause of  the  special  functions  and 
extra  keys  on  the  Atari  keyboard. 
The  seldom-used  brackets  may  be 
typed  with  CTRL-9  or  CTRL-0.  The 
-I-  =  key,  normally  located  at  the 
upper  right  of  the  Dvorak  key- 
board, has  been  moved  down.  The 
*  \  key  has  been  retained  in  its 
standard  Atari  position  because 
these  characters  have  extra  use  as 
arithmetic  functions  in  program- 
ming. Since  the  Atari  has  no  cent 
symbol,  this  has  been  replaced  with 
the  vertical  line  as  uppercase  6.  In 
place  of  the  asterisk  (uppercase  8  on 
the  Dvorak  keyboard)  is  the  back- 
slash. The  '  "  key  has  been  ex- 
changed with  the  ;:  key  to  avoid 
conflict  between  the  CTRL-up  ar- 
row and  CTRL-semicolon. 

The  Atari  logo  key  is  the  in- 
verse video  key  on  the  Atari  400/ 
800,  and  it  is  reversed  with  the  right 
SHIFT  key  on  those  models.  Re- 
grettably, the  Atari  has  no  dash  in 
its  character  set.  While  the  useless 
underline  could  be  redefined  as  a 
dash  for  screen  display,  most  Atari 
printers  also  lack  the  dash. 

If  you  enter  NEW  or  load  a 
new  program  after  this  one  is  run, 
the  new  character  set  with  readable 
CTRL  key  characters  remains  active 
(as  long  as  the  new  character  set  is 
not  overwritten).  Press  SYSTEM 
RESET  or  POKE  756,224  to  restore 
the  old  character  set.  The  following 
POKEs  switch  on  the  Dvorak  key- 
board even  after  a  NEW  command: 
POKE  121,0:POKE  122,6.  To 
switch  back  to  QWERTY,  use  POKE 
121,81:POKE  122,251. 

The  next  time  you  need  to 
transfer  large  blocks  of  data  from 
one  portion  of  memory  to  another, 
try  using  the  string  offset  technique. 
It  gives  you  the  best  of  both  worlds: 
the  convenience  of  BASIC  and 
near-machine  language  speed. 
Never  again  will  you  have  to  sit 
staring  at  a  blank  screen  waiting  for 
your  programs  to  move  large 
amounts  of  data  in  memory. 


Dvorak  Keyboard  Demo 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTErs  Guide  to  Typing  In 
Programs"  in  this  issue  of  compute!. 

C(110  DIfl  RDM»  (  1024)  ,  RPlM*  (  10 
24):REM  These  variable 
names  must  be  the  -fir 
st  entered. 
H:  20  ROM«(1024)="  ":GDSUB  6 
0: S=57S44-SF:60SUB  70: 
POKE  VT+2,LS:PDKE  VT+3 
,HS:REM  Thig  moves  ROM 
*. 
GH  30  RAMPftGE  =  PEEK  t  106)  -B:  S  = 
RftMPftBE«25£.-SF:G0SUB  7 
0:POKE  VT+10, LS:POKE  V 
T+11,HB:REM  This  moves 
RAM*. 
IF  40  RAt1*  =  R0M*:  REM  That  is 
all  it  takes!  ROM  data 
is  noM  copied  into  RA 
M. 
PB  50  SETCDLDR  1  ,  0  ,  0  :  SETCOLD 
R  2,0, laiSETCDLQR  4, 8, 
6: GOTO  B0 
IP  60  VT  =  PEEK  (  134) +PEEK  (  135) 
«256: SF=PEEK ( 140) +PEEK 
( 141 ) *256: RETURN 
Ell  70  HS=INT  (S/256)  :  LS  =  S-HB« 

256:RETURN 
1ft 75  REM  Now  modify  the  cha 

r  acter  set : 
KB  B0  RAM*  (5I3,520)=RAMS('?a) 
: RAM*  t521, 728) =RfiM» (26 
6)sF0R  X=520  TO  72B  ST 
EP  B: RAM»(X, X) =CHR« (25 
5)  I  NEXT  X 
OK  90  RAM*  (769,  776)  =RAM*  i  1  14 
) : RAM* (776,776) =CHR* (2 
55) : RAM* (985, 792) =RAM« 
(218) : RAM* (992, 992) =CH 
R« (255) 
HP  100  POKE  756,  RAMPABE:  REM 
Set  the  CHBAS  painter 
to  start  Q-f  new  char 
acter  set . 
DN  1  1 0  ?  "New  character  set 
ready.":?  "CONTROL  A= 
";  CHRtd)  ;  ",  CONTROL 
Z  =  " J  CHR* (26) 
mil5  REM  Press  RESET  or  PO 
KE  756,224  to  restore 
old  character  set, 
SB  120  CLR  :DIM  RGM»£256),RA 
M« (256) : ROM* (256) ="  " 
sGGSUB  60:LSF=PEEK(14 
0) : HSF=PEEK ( 141 ) : POKE 
140,0:POKE  141,0 
DE125  REM  Now  copy  keyboard 
definition  table  fro 
m  ROM  to  page  6  of  RA 
M: 
NH130  3  =  64337:  QOSUB  70;POKE 
VT+2,LS:P0KE  VT+3,HS 
: S=1536:S0SUB  70iPOKE 
VT+10, LS: POKE  VT+11, 
H3: RAM»=ROM» 
LL  135  REM  Now  change  keyboa 
rd  definition  table  t 
Q  Dvorak  layout: 
IK  140  RAM»="nhs"  :  RAM*  (6)-"t 
-tr  Ig"  :RAM» ( 14)="c'  = 
k  J": RAM* (22) ="xq; ":R 
AM*(33)  =  "w  vb  niz"!RAM 
»(41)="p  .f 
8J  150  RAM»(46)="y, /"  !  RAM*  (5 
7) ="ude": RAM* (62) ="iD 
" : RAM* (65)= "NHS" : RAM* 
(70)="T_"R  LB"!RAM»(7 
8) ="C  +K  J/  XQ: " 
NI  160  POKE  1614,  34:  RAM*  (92) 
=  "  I  " : RAM* (95)  ="3 ! W  VB 


CK  170 


FK  180 


BH  190 


JC  200 


HA  205 


LL  210 


DG  215 


CE  220 


NB  230 


JA  240 

m  250 

J/1260 
JE  265 

IL  390 

FD  600 

Hit  610 
EG  920 


RAM»(105)="P  .F" 
*(110)-"Y,?(   )!," 

(  1  IS) ="\": RAM* ( 12 
UDE" : RAM* ( 126)=" I 


X  =  0 

(A)  = 

KE  1 

,96: 

*  (17 

175 

187, 

47,  1 

129 

131, 

50,  1 

Now 

i  nte 

torn 

utin 

140 

CLR 

337 

753 

tab 

Pres 

ggle 

nd  D 


TO  2 
CHR* 
6B7, 
RAM* 
9)  =" 
,  192 
172, 
45,  1 
,  191 
134, 
74,  1 
rest 
rs  a 
keyb 


6:RE 
(X)  5 

123: 
(  177 
3  " 

,  164 
140, 
39,1 
,  169 
185, 
67 
ore 
nd  s 
oard 


AD  A: 

NEXT 

POKE 

)  =  "  t  " 

,  142, 

130,  1 
66 

,  151, 
163,  1 

off  se 

et  up 
entr 


,LSF:PDKE  141 

: DIM  K* ( 1 ) ; B 
LK=9: C=0: 1=0: 
,0:?  "New  key 
1 e  ready . " : ? 
s  SHIFT  ESC  t 

between  DWER 
vorak  keyboar 


M2 
:RAM 

RAM* 
1  )  =  " 
0" 
FOR 
RAM* 
X:  PQ 
1706 
:  RAM 
DATA 
IHi, 
90,  1 
DATA 
137, 
61,1 
REM 
t  po 
cus 
y  r  Q 
POKE 
,  HSF 
D  =  64 
POKE 
code 
REM 
o  to 
TV 
d. 

□N  PEEK (753) <>3  BOTQ 

220: K  =  PEEK( 53769)  :  IF 

K-39     OR     K5=60     OR     K  =  92 

THEN     BDTO     K«10 

A  =  PEEK(CID  +  K)  ;  K  =  K  +  C«  (A 

>96    AND    A< 123) : K*=CHR 

» CPEEK(aD+K) +1 ) : ?  K*; 

:POKE  753,3* (LK=K) :P0 

KE  20,0 

DN  PEEK<753)<3  GOTO  2 

60: IF  PEEK(20)<24  THE 

N  240 

IF  PEEK(753)=3  THEN  ? 

K»; iSDTO  250 
LK-KiPOKE  764,255:eor 
□  220 

REM  Type  a  letter  twi 
ce  then  hold  it  down 
to  start  autorepeat. 
I»=12B*  (  1=0)  :GDTO  610: 
REM  Inverse  video  tog 
g  I  s 

C=64t (C=0) :REM  Cap/lo 
wercase  toggle 
POKE  753,0:GaTO  260 
□0=1536+62001* (QD=133 
6):PDKE  712, 134+66* (Q 
D-1536):BDT0  610:REM 
Green  border =Dvorak . 
Blue»OWERTY.  _ 


Attention  Programmers 

COMPUTE!  magazine  is  currentiy 
iooking  for  quality  articles  on 
Commodore,  Atari,  Apple, 
and  IBM  computers  (including 
the  Commodore  Amiga  and 
Atari  ST),  If  you  have  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTEI,  P.O. 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines," 
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Screen  Machine  II: 

A  Sketchpad  With 

Pull-Down  Menus 

For  PC  and  PCjr 


Part  1 


Charles  Brannon,  Program  Editor 


Pull-dawn  menus  in  IBM  BASIC?  It's 
no  fantasy — presented  here  is  a  full- 
featured  drawing  program  that  illus- 
trates the  convenience  and  flexibility 
of  a  menu-driven  user  interface.  Next 
month,  in  Part  2,  we'll  show  how  you 
can  add  these  menu  routines  to  your 
own  programs.  This  month's  drawing 
program,  "Screen  Machine  U,"  runs 
on  any  IBM  PC  or  compatible  with  a 
color /graphics  adapter  and  BASICA, 
or  a  PCjr  with  Cartridge  BASIC.  Joy- 
stick or  touch  tablet  optional. 


Software  features  first  popularized 
by  the  Apple  Macintosh  are  finding 
wider  acceptance  throughout  the 
computer  industry.  Pull-down 
menus  and  point-and-click  selec- 
tions have  become  a  way  of  life 
among  owners  of  the  Macintosh, 
Commodore  Amiga,  and  Atari  ST. 
With  the  advent  of  operating  sys- 
tem veneers  such  as  Microsoft  Win- 
dows, GEM,  and  Topview  for  IBM 
machines,  even  more  people  are 
getting  excited  about  mousing 
around  on  their  computer. 


Without  the  software  tools  to 
implement  these  techniques, 
though,  programmers  have  to  labo- 
riously write  all  the  routines, 
needed  for  pull-down  menus,  icon 
selection,  and  windov^dng,  taking 
time  away  from  programming  the 
application  itself.  Tools  such  as 
Windows  and  GEM  do  the  trick  for 
advanced  programmers,  but  BASIC 
programmers  have  to  reinvent  the 
wheel  if  they  want  to  add  these 
useful  features. 

You  might  think  BASIC  is  not 
fast  enough  to  emulate  the  features 
of  operating  systems  written  in  tur- 
bocharged  8088  or  68000  machine 
language,  but  it's  almost  always 
possible  to  tease  just  a  little  more 
power  out  of  BASIC.  Although  a 
complete  mouse-based  user  inter- 
face is  a  bit  much  to  expect,  I've 
developed  a  set  of  generalized  sub- 
routines that  any  BASIC  program- 
mer can  use  to  support  fancy  pull- 
down menus  in  Microsoft 
Advanced  BASIC  (BASICA)  or  PCjr 
Cartridge  BASIC.  The  routines  re- 
quire bit-mapped  graphics,  so  you 
need  a  color/graphics  adapter  if 
you're  using  a  PC  or  compatible. 
(The  PCjr  has  a  built-in  color/gra- 


phics adapter.)  By  changing  only  a 
few  small  subroutines,  the  package 
can  be  adapted  for  other  graphics 
cards  and  pointing  devices. 

Rather  than  illustrate  these 
routines  with  a  plain-vanilla  demo 
program,  I  though  I'd  provide  a 
more  convincing  illustration;  a  full- 
featured  drawing  sketchpad. 
"Screen  Machine  11"  is  a  descen- 
dant of  the  original  "Screen  Ma- 
chine," a  drawing  program 
published  about  two  years  ago  in 
COMPUTEI's  PC  &  PCjr  Magazine. 

The  original  Screen  Machine 
used  a  traditional  command- driven 
user  interface.  Individual  key- 
strokes were  required  to  activate 
special  commands.  For  example,  to 
draw  a  line,  you  first  pressed  the 
space  bar  to  "nail  down"  one  end- 
point,  marking  the  spot  with  a 
cross.  You  then  moved  the  cursor  to 
a  new  position  and  then  pressed  L 
to  connect  the  marked  spot  with  the 
new  cursor  position.  A  line  was 
drawn  to  connect  the  points.  To 
draw  a  circle,  you  first  set  your 
mark  to  represent  the  center  of  the 
circle,  then  moved  the  cursor  to  a 
point  along  the  desired  circumfer- 
ence. You  had  to  visualize  the  circle 
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in  your  mind,  because  it  wasn't  ac- 
tually drawn  until  you  pressed  C. 
Although  Screen  Machine  had 
plenty  of  features  (and  in  the  hands 
of  a  talented  artist  was  capable  of 
making  beautiful  pictures),  the 
stumbling  block  was  the  indirect 
method  of  using  the  program.  You 
had  to  memorize  every  command 
or  frequently  refer  to  a  list  of  com- 
mands. This  approach  works  well 
once  you've  mastered  a  program, 
but  it  can  alienate  the  newcomer  or 
occasional  user.  In  a  drawing  pro- 
gram, especially,  it's  crucial  not  to 
break  the  flow  of  ideas  between  the 
artist  and  the  canvas. 

Screen  Machine  II 

Thanks  to  pull-down  menus,  you 
don't  have  to  memorize  a  lot  of 
commands  to  have  fun  with  Screen 
Machine  11.  All  of  the  functions  are 
available  for  selection  whenever 
you  need  them. 

The  listing  following  this  arti- 
cle is  the  minimum  required  to  pub- 
lish Screen  Machine  II  as  a  ready- 
to-run  program.  Screen  Machine  II 
needs  almost  all  of  BASIC'S  64X 
memory  space,  so  the  original  pro- 
gram listing  with  full  comments 
didn't  leave  enough  memory  to 
run.  Next  month,  however,  we'll 
present  a  fully  RE  Marked  version 
that  shows  exactly  how  the  pro- 
gram works,  along  with  a  tutorial 
on  using  the  menu  routines  in  your 
own  programs. 

When  you  first  run  Screen  Ma- 
chine II,  there  is  a  short  delay,  then 
the  drawing  screen  appears.  The 
top  line  of  the  screen  shows  which 
menus  are  available:  Picture,  Tools, 
and  Preferences.  Your  color  palette 
appears  at  the  bottom  of  the  screen, 
initially  showing  boxes  filled  with 
cyan,  magenta,  and  white  paint. 

A  pointer  cursor  appears  near 
the  middle  of  the  screen.  You  use 
this  pointer  to  select  items  from 
menus,  dip  into  the  paint  to  change 
your  drawing  color,  or  to  draw  fig- 
ures. The  pointer  can  be  controlled 
with  a  joystick,  a  touch  tablet  such 
as  the  KoalaPad,  or  the  cursor  keys 
(make  sure  Num  Lock  is  in  the  cor- 
rect position  for  cursor  control). 
When  using  the  joystick,  you  may 
want  to  unlock  it  for  free-floating 
movement. 

If  you  don't  have  a  joystick  or 
touch  tablet,  you  can  disable  the 


joystick  routine  in  Screen  Machine 
n  to  prevent  interference  with  the 
cursor  controls.  Change  line  340 
from  FROZEN  =  0  to  FROZEN  =  -l. 
To  use  a  light  pen  or  mouse 
controller,  you  need  to  modify  the 
subroutine  at  line  20000,  which 
we'll  discuss  next  month.  The  use 
of  menus,  though,  is  not  tied  to  the 
actual  pointing  device  used,  such  as 
a  mouse. 

Calibrate  Your  Joystick 

The  pointer  responds  most  natural- 
ly with  a  touch  tablet,  so  the  pro- 
gram is  initially  set  up  to  use  a 
KoalaPad.  The  KoalaPad  simulates 
the  joystick,  but  has  a  greater  range, 
so  if  you  use  a  joystick  with  Screen 
Machine  II  you'll  only  be  able  to 
position  the  pointer  within  the  up- 
per-left quadrant  of  the  screen.  You 
may  also  have  problems  using  a 
different  touch  tablet,  since  not  all 
tablets  return  the  same  values. 
When- you  first  run  the  program, 
then,  you  need  to  calibrate  your 
joystick  or  tablet.  The  calibration 
option  is  available  under  the  Prefer- 
ences menu,  but  we  haven't  dis- 
cussed how  to  use  the  menus  yet. 
And  until  you  calibrate  your  joy- 
stick, you  probably  can't  access  the 
menu  item  that  is  used  to  select  the 
calibrate  option.  Fortunately,  you 
can  also  press  the  J  key — a  key- 
board shortcut — to  activate  the  cali- 
bration feature. 

After  you  press  J,  you're  first 
asked  to  move  the  joystick  to  the 
upper-left  comer,  then  press  the 
button.  (Screen  Machine  11  only 
uses  the  top  button  on  the  joystick, 
or  the  left  button  of  the  touch  tab- 
let.) This  first  action  sets  the  origin 
of  your  pointing  device.  If  you're 
using  a  touch  tablet,  it  is  vital  that  at 
this  point  you  merely  lift  the  pen  off 
the  tablet  surface  and  press  the  but- 
ton. This  lets  Screen  Machine  II 
know  when  you  are  pressing  down 
on  the  tablet,  and  when  you  lift  the 
pen  off  the  tablet.  The  value  for 
"pen  up"  is  the  same  as  the  coordi- 
nates for  the  upper-left  position  of 
the  tablet,  so  it's  best  just  to  press 
the  button  without  touching  the 
tablet  surface,  in  order  to  make  sure 
that  Calibrate  sees  the  right  value. 
With  a  joystick,  move  the  stick  to 
the  northwest  comer  before  you 
press  the  button. 

Next,  you're  asked  to  move  the 


joystick  to  the  lower-right  comer, 
then  press  the  button.  With  the 
touch  tablet,  move  the  stylus  or 
your  fingertip  to  the  southeast  cor- 
ner of  the  tablet,  and  while  pressing 
firmly  with  the  stylus,  click  the  but- 
ton. It  may  be  best  to  use  a  position 
slightly  above  and  to  the  left  of  the 
lower-right  position,  since  if  you 
put  the  pen  off  the  tablet  surface,  no 
value  is  generated. 

In  general,  you  must  press  very 
firmly  against  the  tablet  surface,  al- 
most to  the  point  of  scoring  the 
tablet,  in  order  to  avoid  false  read- 
ings caused  by  intermittent  stylus 
contact.  These  false  readings  aren't 
caused  by  Screen  Machine  II,  but 
by  the  tablet.  A  special  routine 
could  be  used  to  compute  the  aver- 
age position  of  the  touch  tablet 
within  the  last  second,  then  reject 
values  far  out  of  range,  but  this 
would  slow  down  the  program  to  a 
crawl.  As  it  turns  out,  this  jitter  is 
rarely  a  problem,  since  the  BASIC 
program  samples  the  touch-tablet 
too  slowly  to  see  many  of  the  tran- 
sient glitches. 

After  calibration,  you  should 
be  able  to  move  the  pointer  freely 
as  you  slide  your  finger  or  stylus 
across  the  tablet  surface,  or  by  mov- 
ing the  joystick.  Control  may  seem 
clumsy  at  first,  especially  with  the 
joystick,  but  improves  considerably 
with  practice.  If  you  get  no  re- 
sponse at  all,  check  the  joystick  or 
tablet  cabling,  and  press  J  to  cali- 
brate again. 

Keyboard  Control 

If  you  don't  have  a  joystick  or  touch 
tablet,  you  can  use  the  keyboard 
cursor  controls  to  move  the  pointer 
arrow.  The  keyboard  isn't  the  fast- 
est way  to  scurry  across  the  screen, 
but  it  is  exact.  The  joystick,  however, 
overrides  keyboard  control  (al- 
though you  can  use  a  properly  cali- 
brated touch  tablet  along  with  the 
keyboard),  so  you  need  to  press  the 
K  key  right  away  to  freeze  the  joy- 
stick and  enable  keyboard  control. 
The  K  key  alternately  freezes  and 
reenables  the  joystick,  and  is  a  key- 
board shortcut  for  the  Keyboard 
command  on  the  Preferences  menu. 
There  are  two  ways  to  use  the 
keyboard  controls.  The  pointer  can 
move  one  pixel  at  a  time  for  fine 
movements,  but  it  could  take  all 
day  to  inch  your  way  across  the 
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screen.  If  you  press  a  cursor  key 
rapidly  or  hold  it  down  as  it  repeats, 
the  cursor  accelerates.  It  first  moves 
one  pixel  at  a  time,  then  two,  then 
three,  until  it's  moving  at  the  top 
speed  of  12  pixels  per  keypress.  If 
you  stop  pressing  the  cursor  key, 
press  another  key,  or  release  the 
key  for  a  moment,  the  acceleration 
reverts  to  one  pixel  per  keypress.  If 
you  want  fine  control,  press  and 
release  the  cursor  key  slowly,  al- 
lowing time  between  each  key- 
stroke to  prevent  acceleration. 

Keyboard  Shortcuts 


Key 


Menu 


u 

Picture/Undo 

'N 

Picture/ New 

O 

Picture/Open 

s 

Picture/Save 

*Q 

Picture/Quit 

D 

Tools/Draw 

L 

Tools/ Line 

R 

Tools/ Rectangle 

C 

Tools/Circle 

A 

Tools/Airbrush 

P 

Tools/Paint 

B 

Preferences/Bkgd  color 

K 

Preferences/Keyboard 

J 

Preferences/Calibrate 

Unfortunately,  the  program  is 
not  fast  enough  to  keep  up  with  the 
full  repeat  rate  of  the  cursor  keys,  so 
even  after  you  release  the  key,  the 
program  is  acting  on  up  to  15  pend- 
ing keystrokes.  It's  best  to  control 
the  number  of  keystrokes  yourself 
by  just  pressing  the  same  key  rapid- 
ly rather  than  holding  it  down  to 
repeat.  If  you  do  hold  down  the 
key,  release  it  before  the  cursor 
reaches  its  destination.  It  will  keep 
going  for  a  short  distance,  then 
stop.  With  practice,  you  can  time 
things  right  so  that  the  cursor  ends 
up  exactly  where  you  anticipated. 

Using  The  Menus 

To  access  a  menu,  just  move  the 
arrow  cursor  so  that  it  points  at  one 
of  the  menu  titles:  Picture,  Tools,  or 
Preferences.  The  tip  of  the  arrow  is 
the  active  point,  so  make  sure  it  is 
within  the  menu  bar  and  touching 
the  desired  menu  title.  Now  press 
and  release  the  button.  (The  key- 
board equivalent  for  the  button  is 
the  INS  key,  conveniently  located 
beneath  your  thumb  when  you  use 
the  cursor  keypad.)  The  menu  title 
reverses  color,  and  the  menu  drops 
down. 

Note  that  this  differs  from  the 


way  menus  are  selected  on  other 
machines.  On  the  Atari  ST,  menus 
drop  down  automatically  if  you 
merely  point  at  a  menu  title.  On  the 
Macintosh  and  Amiga,  you  point  at 
the  menu  and  click  to  pull  it  down. 
You  have  to  continue  to  hold  down 
the  button  to  keep  the  menu  dis- 
played, and  move  the  pointer  with- 
in the  menu  to  select  an  item.  To 
actually  make  the  choice  on  a  Mac 
or  Amiga,  you  release  the  mouse 
button. 

In  contrast,  with  Screen  Ma- 
chine II  you  press  and  release  the 
button  to  drop  down  the  menu, 
move  the  pointer  to  the  item  you 
want,  then  press  the  button  again  to 
select  the  item  and  remove  the 
menu.  This  technique  is  most  ap- 
propriate when  you're  using  point- 
ing devices  such  as  a  joystick  or 
cursor  keys,  because  it's  difficult  to 
hold  down  a  button  while  moving 
the  pointer. 

For  example,  if  you  point  to 
Picture,  then  click  the  button,  it 
drops  down  a  list  containing  the 
choices  Undo,  New,  Open,  Save, 
View,  and  Quit  (see  figure  3).  To  the 
right  of  each  selection  are  the  key- 
board equivalents:  U,  "N,  O,  S,  V, 
and  'Q.  Instead  of  pulling  down  a 
menu  and  selecting  a  choice,  you 
can  just  press  the  appropriate  key- 
board shortcut.  The '  character  indi- 
cates that  you  should  press  the 
CTRL  key  along  with  the  following 
character:  "N  means  that  you 
should  press  N  while  holding  down 
CTRL. 

Using  the  more  cumbersome 
CTRL-N  and  CTRL-Q  sequences, 
instead  of  merely  N  or  Q,  helps 
prevent  you  from  casually  erasing 
the  screen  or  exiting  the  program. 
Since  these  are  destructive  options, 
the  CTRL  key  is  used  to  guard 
against  accidental  keypresses.  Use 
the  accompanying  table  as  a  quick 
reference  to  keyboard  shortcuts. 

Selecting  A  Menu  Item 

To  select  a  menu  item,  point  the 
cursor  at  the  desired  item.  As  you 
slide  the  cursor  up  or  down  within  a 
menu,  the  item  you  point  to  is  high- 
lighted in  reverse  video.  You  then 
press  and  release  the  button  to  se- 
lect the  highlighted  item.  To  cancel 
a  menu  selection,  either  move  the 
pointer  outside  of  the  menu,  or 
move  it  to  point  at  the  menu  title  so 


that  no  other  items  are  selected 
when  you  press  the  button.  If  you 
move  the  cursor  to  the  left  or  right 
of  the  menu  border,  the  menu  is 
automatically  canceled.  You'll  hear 
an  "uh-oh"  sound  effect  to  confirm 
that  you've  canceled  the  menu. 

When  you  select  an  item,  on 
the  other  hand,  it  flashes  twice, 
emitting  little  tweeting  sounds  to 
let  you  know  that  you've  chosen  a 
valid  option.  (By  the  way,  if  you 
don't  want  any  sound  effects, 
change  line  320  to  read 
SNDFX^O.)  After  you  select  a 
menu  item,  some  action  is  usually 
performed.  If  you  select  New  from 
the  Picture  menu,  for  instance,  the 
screen  clears.  Use  Quit  to  exit  the 
program.  Following  is  a  quick  tour 
of  the  menus — we'll  discuss  the 
meaning  of  each  item  later  on. 

Some  menu  items  select  a  set- 
ting for  the  program.  The  Tools 
menu  contains  the  choices  Draw, 
Line,  Rectangle,  Circle,  Airbrush,  and 
Paitit.  This  menu  is  used  to  select 
the  current  drawing  tool.  Only  one 
tool  is  active  at  any  dme.  When  you 
click  the  button  while  pointing  at 
the  drawing  surface,  rather  than  at 
the  menu  bar  or  within  the  palette, 
the  current  tool  is  activated,  and 
you  start  the  drawing  action.  In 
Draw  mode,  you  can  draw  connect- 
ed lines  as  you  move  the  pointer 
about.  In  Line  mode,  though,  you 
stretch  a  "rubber-band"  line  across 
the  screen,  emanating  from  the 
point  you  first  clicked  on.  When 
you  press  the  button  a  second  time, 
the  rubber-band  line  disappears, 
and  the  desired  line  is  stamped 
down.  In  Paint  mode,  each  click 
initiates  a  flood-fill,  used  to  color 
enclosed  figures. 

The  Tools  menu  indicates  the 
current  tool  by  placing  a  check 
mark  next  to  it.  A  check  mark  can 
show  which  of  several  items  is  cur- 
rently selected.  If  you  select  anoth- 
er drawing  tool,  the  check  mark 
moves  to  the  new  tool.  In  the  Tools 
menu,  a  selection  mutually  ex- 
cludes all  other  selections. 

On  the  other  hand,  a  check 
mark  can  also  be  used  to  show  the 
status  of  several  on/off  settings. 
The  Preferences  menu  lets  you  se- 
lect 320  X  200,  640  X  200,  and  320 
X  200  PCjr  drawing  modes;  two 
color  palettes  for  the  320  X  200 
graphics  mode;  cyn/mag/wht  and 
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red/grn/yel;  as  well  as  Bkgd  color 
(background  color).  Keyboard 
mode,  and  Calibrate.  More  than  one 
item  can  be  checked  in  the  Prefer- 
ences menu.  You  obviously  can't 
draw  both  in  both  320  X  200  mode 
and  640  X  200  mode  at  the  same 
time,  so  only  one  of  the  three  graph- 
ics modes  is  checked.  However, 
while  in  320  X  200  mode,  you  can 
choose  either  of  the  two  color  pal- 
ettes, so  both  320  X  200  would  be 
checked  as  well  as  either  cyn/ 
mag/wht  or  red/gm/yel. 

Ghosted  Items 

If  you  select  640  X  200  mode,  some 
menu  items  under  Preferences  are 
nd  longer  appropriate.  It  isn't  possi- 
ble to  switch  color  palettes  or 
change  the  background  color  while 
in  640  X  200  mode,  so  the  inappro- 
priate menu  selections  need  to  be 
disabled.  Also,  the  320  X  200  PCjr 
mode,  which  permits  16  colors, 
only  works  with  the  PCjr,  so  this 
selection  should  be  made  inaccessi- 
ble when  running  on  a  PC. 

Figure  1 :  Ghosted  Items 
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In  640  X  200  mode,  the  menu 
items  cyn /mag/wht,  red/grn/yel, 
and  Bkgd  color  are  disabled,  and  the 
text  of  the  menu  items  is  distorted 
to  show  that  you  can't  access  them 
(see  Figure  1).  This  distortion  dims 
and  garbles  the  text — such  a  menu 
item  is  ghosted  out,  as  if  the  text  was 
a  "ghost"  of  the  original  text.  The 
320  X  200  PCjr  option  is  ghosted 
out  when  running  on  the  PC.  A 
ghosted  menu  item  can't  be  select- 
ed; you  can't  even  highlight  it  by 
pointing  to  it. 

A  ghosted  item  immediately 


tells  you  that  the  menu  item  is  inap- 
propriate for  the  current  environ- 
ment. If  you  wonder  which 
commands  work  in  which  modes, 
ghosting  makes  it  obvious.  Along 
with  ghosting  and  the  check  mark, 
a  menu  can  be  documentation,  on- 
line help,  and  a  status  report,  as 
well  as  the  device  used  to  change 
these  settings  or  activate  commands. 

Drawing  Tools 

The  pointer  arrow  is  the  pass  key  to 
all  the  functions  of  Screen  Machine 
II.  You  use  it  to  select  a  menu  item, 
sketch  on  the  drawing  surface,  or 
choose  a  new  drawing  color.  You 
already  know  how  to  use  the 
menus.  To  change  drawing  colors, 
just  point  within  the  box  containing 
the  desired  color  and  click  the  but- 
ton, A  border  encloses  the  current 
drawing  color  so  you  can  tell  at  a 
glance  which  color  is  being  used.  In 
640  X  200  mode,  you  can  only 
switch  between  black  and  white,  of 
course.  On  the  PCjr,  you  can  select 
the  16-color  drawing  mode  (see 
below). 

Figure  2:  Ttie  Tools  Menu 
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Your  default  drawing  tool  is 
Draw,  as  you  can  confirm  by  look- 
ing within  the  Tools  menu.  With  all 
the  tools,  you  start  the  drawing  ac- 
tion by  clicking  the  button  while 
pointing  at  the  drawing  area.  The 
drawing  area  is  bordered  by  the 
menu  bar,  the  color  palette,  and  is 
enclosed  within  a  rectangle.  You 
can't  draw  anywhere  outside  of  this 
border. 

In  Draw  mode,  the  first  button 
click  initiates  the  mode.  The  cursor 
disappears  (to  speed  up  drawing), 
and  a  point  is  plotted  at  the  cursor 
position.  You  can  now  move 
around  on  the  screen,  leaving  a  trail 
behind,  as  you  sketch  freehand 
with  the  joystick,  tablet,  or  cursor 
keys.  The  cursor  keys  are  especially 
useful  for  touch-up  work  or  small, 
complex  figures.  Again,  you  can  use 
the  Keyboard  option  from  Prefer- 


ences if  you  need  to  disable  the 
joystick.  If  you  press  the  button  (or 
merely  hft  the  stylus  from  the  tablet 
surface),  you  exit  drawing  mode, 
and  you  can  once  again  freely  move 
the  cursor  without  drawing  on  your 
screen  canvas. 

In  Line,  Rectangle,  and  Circle 
modes,  the  first  click  sets  the  first 
coordinate  for  the  figure.  You  then 
move  the  pointer  about  to  change 
the  size  or  position  of  the  figure, 
then  press  the  button  again  to  final- 
ize the  figure.  WhUe  previewing  the 
figure,  the  line,  circle,  or  rectangle  is 
repeatedly  drawn  and  erased  to 
allow  movement.  As  you  move  the 
figure  across  the  drawing  surface,  it 
may  erase  parts  of  the  picture  as  it 
passes  over  the  screen.  Don't  be 
concerned — this  is  just  a  side  effect 
of  the  animation  process.  When 
you  press  the  button  to  choose  the 
desired  figure,  the  previous  screen 
is  redrawn,  restoring  any  erased 
parts,  and  then  the  desired  figure  is 
overlaid  on  top  of  the  picture.  If  you 
make  a  mistake,  you  can  use  the 
Undo  option  from  the  Picture  menu 
(or  simply  press  U),  to  restore  the 
previous  screen. 

In  Line  mode,  the  first  click  sets 
one  endpoint  of  the  line.  You  move 
the  other  endpoint  around  with 
your  pointing  device.  You  see  how 
the  line  will  look  as  you  move  it 
around  the  screen.  In  Rectangle 
mode,  the  first  click  sets  one  comer 
of  the  rectangle.  As  you  move  the 
pointer,  you  are  dragging  around 
the  diagonally  opposite  comer  of 
the  rectangle.  In  Circle  mode,  the 
first  click  sets  the  center  of  the  cir- 
cle. You  move  the  pointer  around  to 
enlarge  or  contract  the  radius  of  the 
circle.  The  second  click  stamps 
down  the  figure.  (Remember,  you 
can  always  Undo  the  most  recent 
drawing  action.) 

The  Airbrush  tool  is  handy  for 
shading  or  blending  colors.  It  ran- 
domly sprays  out  pixels  within  an  8 
X  8  zone  centered  around  the 
pointing  arrow.  The  longer  you  stay 
in  one  place,  the  more  paint  is 
sprayed  down.  If  you  move  around 
while  spraying,  you  get  a  series  of 
random  dots.  This  approximates 
the  behavior  of  a  real  airbrush. 
Again,  the  first  click  starts  airbrush 
mode,  and  a  second  click  exits  air- 
brush mode,  restoring  floating  cur- 
sor movement.   As  with   Draw 
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modcy  lifting  the  stylus  from  the 
tablet  surface  implies  you  want  to 
stop  the  airbrush  and  go  back  to 
moving  the  cursor. 

Use  the  Paint  tool  carefully.  It's 
used  to  fill  in  an  enclosed  area  of 
the  screen.  For  example,  you  could 
draw  a  rectangle  first,  then  fill  it  in. 
The  paint  floods  out  of  the  cursor 
position,  and  doesn't  stop  until  it 
touches  areas  of  the  same  color. 
You  can  only  fill  an  area  bounded 
by  the  same  color  as  the  current 
drawing  color.  If  you  attempt  to  fill 
with  a  different  color,  the  paint 
overflows  the  container,  possibly 
filling  the  whole  screen.  However, 
if  you  remember  to  press  U  before 
you  start  another  drawing  action, 
no  harm  is  done. 

You  can  use  the  keyboard 
shortcuts  D  for  Draw,  L  for  Line,  R 
for  Rectangle,  C  for  Circle,  A  foi 
Airbrush,  and  P  for  Paint. 

Figure  3:  The  Picture  Menu 
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The  Picture  Menu 

The  Picture  menu  affects  the  overall 
screen  canvas.  Use  Undo  to  restore 
the  previous  screen.  The  screen  is 
saved  in  a  buffer  before  any  draw- 
ing command  changes  the  screen. 
Undo  copies  this  buffer  back  onto 
the  screen,  restoring  the  previous 
screen  and  erasing  the  most  recent 
change.  Of  course,  Undo  can  only 
undo  the  most  recent  action,  and 
you  can't  go  back  to  the  way  the 
screen  was  before  you  performed 
the  Undo — you  can't  undo  an  Undo. 

The  New  option  simply  erases 
the  screen.  Be  careful — it  doesn't  ask 
"Are  you  sure?"  first. 

Use  Quit  to  exit  the  program. 
You  could,  of  course,  simply  turn  off 
the  machine,  but  Quit  is  somewhat 
more  elegant.  Once  you're  back  in 
BASIC,  you  can  type  SYSTEM  to  exit 
to  DOS. 

The  Save  command  stores  your 
picture  on  disk.  Open  restores  a  pre- 


viously saved  screen.  After  you  select 
Open  or  Save,  a  box  pops  up  in  the 
center  of  the  screen,  prompting  you 
to  enter  a  filename.  You  can  enter 
any  legal  PC-DOS  filename,  includ- 
ing a  path  prefix,  such  as  A;  or  B:. 
This  is  the  name  that  your  picture  is 
stored  under.  After  you  Save  a  pic- 
ture, you  can  use  Open  to  read  this 
picture  back  onto  the  screen. 

If  you  don't  use  an  extender,  as 
in  FLOWERS.ART,  an  extender  is 
added  for  you.  The  extender  is  made 
of  the  characters  PI  (for  picture)  and 
the  number  of  the  graphics  mode 
used:  1  for  SCREEN  1,  320  X  200;  2 
for  SCREEN  2,  640  X  200,  and  5  for 
the  PCjr  16-color  320  X  200  mode, 
SCREEN  5. 

So  a  picture  saved  while  in  640 
X  200  mode  would  have  the  charac- 
ters .PI2  appended  to  the  filename. 
This  extender  is  added  for  both  Open 
and  Save.  If  you  attempt  to  Open  the 
picture  FLOWERS  while  in  320  X 
200  mode,  it  actually  searches  for 
FLOWERS.PIl.  However,  if  you're 
in  640  X  200  mode,  it  searches  for 
FIJOWER5.PI2.  This  prevents  you 
from  loading  a  picture  saved  in  one 
graphics  mode  onto  the  screen  of 
another  graphics  mode.  If  you  want 
to  defeat  this,  either  always  use  an 
extension,  as  in  FLOWERS.ART,  or 
append  the  appropriate  .PI  exten- 
sion. If  you're  loading  a  picture  saved 
as  FLOWERS.PIl  onto  the  640  X 
200  screen,  you  need  to  enter  the 
filename  FLOWERS.PIl  to  prevent  it 
ft-om  searching  for  FLOWERS.PI2. 

If  a  disk  error  occurs,  another 
box  pops  up  showing  you  the  DOS 
error  code,  and  it  prompts  you  to 
press  either  R  for  Retry  or  C  for 
Cancel.  If  the  error  is  something  you 
can  immediately  correct,  such  as  in- 
serting a  disk,  you  can  press  R  to 
retry  the  disk  operation.  Otherwise 
press  C  to  cancel  the  operation,  then 
figure  out  what  you  did  wrong 
before  again  selecting  Open  or  Save. 

Next  month,  we'U  show  you 
how  to  use  the  BLOAD  command  to 
load  one  of  these  pictures  from  with- 
in your  ovm  programs.  If  you  can't 
wait,  examine  the  Open  and  Save 
routines  at  lines  2100  and  2170. 

The  keyboard  shortcuts  for  the 
Picture  menu  are  "N  for  New,  O  for 
Open,  S  for  Save,  and  "Q  for  Quit 
(remember  that  *  means  to  press 
CTRL  as  you  press  the  indicated 
key). 


Choosing  Your  Preferences 

The  Preferences  menu  lets  you  se- 
lect various  special  options.  The 
first  three  entries:  320  X  200,  640  X 
200,  and  320  X  200  PCjr,  let  you 
pick  which  graphics  mode  to  use, 
(You  should  choose  your  mode 
before  you  begin  drawing;  the 
drawdng  area  is  erased  when  you 
change  modes,  so  any  drawing  will 
be  lost.)  The  320  X  200  mode  gives 
you  four  colors  to  work  with.  In  this 
mode,  you  can  choose  either  of  two 
color  palettes:  cyn/mag/mht  (cyan/ 
magenta/white),  or  red/grn/yel 
(red/green/yellow).  The  latter  op- 
tions are  ghosted  in  all  other  modes. 
The  640  X  200  mode  gives  you 
more  horizontal  density  for  fine  de- 
tail, but  you  can  only  choose  be- 
tween black  and  white.  On  the  PCjr 
only,  you  can  select  the  320  X  200 
PCjr  mode  and  get  16  colors  for 
vivid,  realistic  (or  surrealistic) 
paintings. 

Figure  4:  The  Preferences 
Menu 
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The  Bkgd  color  option  switches 
to  a  different  background  color. 
Each  time  you  select  it,  the  back- 
ground color  changes  to  the  next  in 
a  series,  16  colors  in  all. 

Some  of  the  Preferences  items 
have  keyboard  shortcuts:  B  for  Bkgd 
color,  K  for  Keyboard,  and  J  for 
Calibrate. 

BASIC  Shortcomings 

This  program  was  an  experiment  of 
sorts,  an  attempt  to  discover  if  tech- 
niques such  as  pull-down  menus 
can  be  achieved  in  BASIC.  1  knew 
from  the  beginning  that  BASIC'S 
relatively  slow  speed  (as  compared 
to  machine  language  or  compiled 
languages)  would  be  the  limiting 
factor.  In  particular,  using  a  30,000- 
byte  array  for  an  Undo  buffer 
causes  a  short  delay  the  first  time 
any  routine  is  activated.  The  first 
time  you  try  to  move  the  cursor. 
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select  a  drawing  tool,  change  col- 
ors, select  a  menu,  etc.,  there  is 
short  delay  as  the  huge  array  is 
shifted  downward  in  memory  to 
make  room  for  new  variables  as 
they  are  encountered.  This  problem 
could  be  eliminated  by  referencing 
every  variable  in  the  program 
before  the  array  is  dimensioned, 
but  this  is  really  more  trouble  than 
it's  worth. 

The  innermost,  core  routine  in 
this  program  is  the  subroutine  at 
line  20000,  used  to  check  for  the 
"mouse"  position.  It  adapts  to  the 
keyboard,  joystick,  and  touch  tab- 
let, checks  for  keyboard  shortcuts, 
scales  the  values  to  the  current 
screen  resolution,  and  keeps  these 
coordinates  in  bounds.  All  this 
checking  in  such  a  commonly 
called  routine  is  bound  to  slow 
things  down.  If  you  are  using  only 
one  pointing  device  or  one  graphics 
mode,  you  may  want  to  consider 
streamlining  this  routine  to  speed 
things  up. 

Screen  Machine  II 

For  instnjctions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  compute  i. 

KS    120    DEFINT    fl-Z 

PA  140  PCJR=0:aN  ERROR  GOTO  150: 

SOUND  OFF: CLEAR  , , , 3276B ! 

: DEFINT  A-Z:PCJR=-1 
JF  150  IF  NOT  PCJR  THEN  RESUME  1 

60 
OJ  160  ON  ERROR  SOTO  0 
CN  220  DIM  ARR0W7.  (32),ZZTeMPX(64 

8) 
Kf  240  XMAX''250:YMflX=230:XDFF=7: 

Y0FF=7 
HS  250  HIGHLIGHT=2 
«D  260  TRUE=-l:CURSaR=TRUE 
K?   270  KEY  OFF: SCREEN  0,0,0:WIDT 

H  40! COLOR  , 1, 1:CLS:L0CAT 

E  4, 11,0: COLOR  12: PRINT  " 

SCREEN  MACHINE  II" 
NP  280  LOCATE  7,  12:  COLOR  10:PRIN 

T"Ctiarles  Brannon" 
KO  290  COLOR  14:  LOCATE  13,i0:PRI 

NT"One  moment,  please..." 
AC  300  GOSUB  9000 
OB  310  SM0DE=1:C0LR=1:  GOSUB  3000 


BL  320 

SNDFX=TRUe 

A6  330 

ACC=1:DACC=1 

K6  340 

FROZEN=0 

JH  380 

CDLR=1:T0DL=1 

EO  390 

STRI6  ON 

PC  400 

MX=XRES/2: MY=YRES/2: NX=MX 

:NY=MY: GOSUB  1B000 

LI  410 

DIM  UND07.  (15000) 

J!  450 

WHILE  TRUE 

BK  460 

OOSUB  1B000:MB=0;MNID=0 

LP  470 

WHILE  MNID=0  AND  MB=0 

KP  480 

GOSUB  14000 

6H  490 

WEND 

FK  500 

IF  MBO0  THEN  BDSUB  1000 

FH  510   IF  MNID  THEN  GOSUB  2000 
EN  520  WEND 


LK  1000  WHILE  M8:  GOSUB  20000:  MEN 

D 
KB  1010  GOSUB  19000 
ftC  1020  IF  MY>=CY  THEN  COLR=INT ( 
MX/XRtt) : GOSUB  6000:RETUR 
N 
IC  1030  BET  C1,B)-(XRES-2,CY-1), 

UNDOX 
H  1035  SCM«=CM»:CM*="" 
LS  1040  ON  TOOL  GOSUB  1070,1170, 

1300, 1430, 1560, 1630 
DC  1045  CM»=SCM« 
JK  1050  RETURN 
Eft  1070  IF  PENUP  AND  NOT  KEYMODE 

THEN  RETURN 
KB  1080  CURSOR=0 
Bfl  1090  WHILE  MB=0  AND  (NOT  PENU 

P  OR  KEYMODE) 

E6  1100  SX=MX:SY=MY:  GOSUB  20000: 

MY=-MY«{«Y>7  AND  MY<CY)- 

8* (MY<e) - (CY-1 ) t (MY>=CY) 

HL  1110  LINE  (SX,SY)-(MX,MY)  ,COL 

R 
PK  1120  WEND 
LH  1130  WHILE  MB:  GOSUB  20000:  WEN 

D 
HC  1140  CURSOR=TRUE 
J«  1150  RETURN 

DP  1170  SX=MX:SY=MY!CURSDR=0 
«P  1180  WHILE  MB=0 
OD  1190   LINE  (SX,SY)-(MX,MY>,0 
06  1200   GOSUB  20000: MY=-MY«( MY > 
7  AND  MY<CY)-B»(MY<8)-(C 
Y-1)*(MY>=CY) 
BK  1210   LINE  (SX,SY)-(MX,MY),CO 

LR 
Eft  1220   EX=MX:EY=MY 
FP  1230  WEND 
nn  1240  WHILE  MB:60SUB  20000:WEN 

D 
KS  1 250  PUT  ( 1 ,  a )  ,  UNDOX ,  PSET 
K    1260  LINE  (SX,SY)-(EX,EY),CDL 

R 
I»  1270  CURSOR=TRUE 
JH  1280  RETURN 

CE  1300  SX=MX:SY=MY:CURSDR=0 
LO  1310  WHILE  MB=0 
NK  1320   LINE  (SX,  SY)  -  (MX  ,  MY)  ,  0, 

B 
PB  1330   GOSUB  20000: MY=-MY»( MY > 
7  AND  MY<CY)-8»(MY<B>-(C 
Y-1)«(MY>=CY) 
FH  1340   LINE  (SX,  SY>  -  (MX,  MY)  ,  CO 

LR,B 
FL  1350   EX  =  MX:EY=MY 
S<    1360  WEND 
NH  1370  WHILE  MB:  GOSUB  20000:  WEN 

D 
Oi  1380  PUT  (1,8),  UNDOX,  PSET 
Fl  1390  LINE  (SX,SY)-tEX,EY),COL 

R,B 
HH  1400  CURSQR=TRLJE 
IG  1410  RETURN 

DP  1430  SX=MX:SY=MY:CUR3OR=0 
BJ  1440  WHILE  MB=0 

PH  1450   CIRCLE  (SX  ,  SY)  ,  SQR  (ABS  f 
SX-MX )  ''2+ABS  (SY-MY)  "2) ,  0 
B«  1460   tSOSUB  20000:MY=-MYI  (MY> 
7  AND  MY<CY)-8«(MY<8)-(C 
Y-1>«<MY>=CY) 
NP  1470   CIRCLE  (SX  ,  SY)  ,  SQR  (ABS  ( 
SX-MX  )''2+ABS  (SY-MY)  "2)  ,C 
OLR 
FB  1480   EX=MX:EY=MY 
6F  1490  WEND 
L6  1500  WHILE  MB:  GOSUB  20000:  WEN 

D 
KE  1510  GOSUB  3000: PUT  (1,8),UND 

OX, PSET 
Jft  1520  CIRCLE  (SX.SY) ,SGR(ABS(S 
X-EX)''2+ABS(SY-EY)-"2)  ,  CD 
LR 
m    1530  CURSDR=TRUE; GOSUB  12000: 


GOSUB  6000 
Jfl  1540  RETURN 
SB  1560  WHILE  MB=0  AND  (NOT  PENU 

P  OR  KEYMODE) 
J£  1570   GOSUB  20000: IF  MY<12  OR 

MY>CY-5  THEN  1590 
B6  1580   GOSUB  19000:  PSET  (MX+4- 

e«RND, MY+4-B»RND) , COLR 
BK  1590  WEND 
DI  1600  WHILE  MB:  GOSUB  20000:  WEN 

D 
JK  1610  RETURN 

Mft  1630  ON  ERROR  GOTO  1660; PAINT 

(MX,MY) ,COLR:LINE  (0,0) 

-(XRES-1,YRES-1) ,,B:B05U 

B  6000: GOSUB  12000 

6C  1640  ON  ERROR  BOTO  0:  WHILE  MB 

:QOSUB  20000: WEND 
J6  1650  RETURN 
U    1660  RESUME  NEXT 
ED  2000  ON  MNID  GOSUB  2030,2320, 

2380 
IP  2010  RETURN 
BL  2030  ON  MNIT  BOSUB  2060,2080, 

2100,2170,2240,2300 
Jl  2040  RETURN 
SF  2060  GOSUB  19000:  PUT  (1,8),  UN 

DOX, PSET: RETURN 
HE  2080  GOSUB  3000:  RETURN 
IJ  2100  TYP»="OPEN":  GOSUB  4000 
OJ  2110  IF  FILENAME»=""  THEN  213 

0 
K   2120  ON  ERROR  GOTO  5500: DEF  S 
EQ=SEaADR:BLDAD  FILENAME 
*,0 
JO  2130  ON  ERROR  GOTO  0:CLOSE#1 
BO  2140  LINE  (0,0)-(XRES-l,YRes- 
1),,6:80SUB  12000:GOSUB 
6000 
JH  2150  RETURN 

EC  2170  TYP«="SAVE": BOSUB  4000 
N«  21 B0  IF  FILENAME«=""  THEN  221 

0 
FN  2190  GET  ( 1 ,  8)  -  (  XRES-2,  CY-l)  , 
UNDOXiCLS:PUT  (1,8), UNDO 
X,PSET 
OL  2200  ON  ERROR  GOTO  5500:  DEF  S 
EG=SE6ADR : BSfl VE  F ILENAME 
S,0,SCRLENI 
KP  2210  ON  ERROR  SOTO  0:CLOSE#1: 
BOSUB  3000 : PUT  ( 1 , 8 ) , UND 
OX, PSET 
16  2220  RETURN 

DP  2240  GOSUB  19000:  CURSOR=0 
ED  2250  BET  ( 1 ,  B)  -  (XRES-2,  CY-1 )  , 
UNDOX :CLS: PUT  (1,B),UND0 
X,PSeT 
HB  2260  WHILE  MB=0:  GOSUB  20000:  W 

END 
OS  2270  WHILE  MB:  GOSUB  20000:  WEN 

D 
IfP  2280  GOSUB  3000:  PUT  (1,B),UND 
OX,PSET:CURSaR=-l:ReTURN 
CJ  2300  SCREEN  0,0,  0,0:  END 
LN  2320  MFLAGS  (MNID,  TOOL)  =1 
OH  2330  MFLAGS  (MNID,  MNIT)  =2:  TOOL 

=MNIT 
JO  2340  RETURN 
5N  2350  STOP 
«F  2380  IF  MNIT<4  THEN  SMDDE=MNI 

T-2*(MNIT=3) :GDSUB  3000 
Pf  2390  IF  MNIT=4  THEN  COLOR  ,1: 
MFLAGS (MNID, 4) =2: MFLAGS ( 
MNID,5)=1 
BN  2400  IF  MNIT=5  THEN  COLOR  ,2: 
MFLAGS (MNI D, 4) =1 : MFLAGS ( 
MNID,5)=2 
IF  2410  IF  MNIT=6  THEN  BG=(BG+1) 
AND  15: IF  SM0DE=1  THEN 
COLOR  BB  ELSE  COLOR  , BG 
6P  2420  IF  MNIT=7  THEN  FRaZEN=ND 
T  FROZEN: MFLABS (MNID, MNI 
T)=1-FRDZEN 
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BE  2430  IF  MNITOa  THEN  RETURN 

GA  2440  GOSUB  17000: LOCATE  I,1:M 

SB«=LEFT»("Mov«  stick  ta 

upper  left,  press  butto 

n."+SPflCE»(B0) ,SWIDTH):S 

OSUB  13000 

tJ  2450  WHILE  STRIG<1>=0:XOFF-ST 

ICK<0)  :  YOFF=STICK(n!WEN 
D 
m   2460  WHILE  STRIG  (1)00:  WEND 
FO  2470  LOCATE  1 ,  1 :  MSO«=LEFT$  (  "M 

ove  stick  to  lower  right 

,  press  button. "+SPflCE*! 

B0>,S«IDTH) :SOSUB  13000 
HK  24B0  WHILE  STRIG  ( 1 )  =0:  XMftX  =  ST 

ICK (0) I YMAX=STICK (1 ) : WEN 

D 
KE  2490  WHILE  STRIG ( 1 ) <>0: WEND 
DH  2500  XRATIO#=XRES/XMAX:YRATIO 

«=YRES/YMAX 
If  2510  GDSU8  12000:  RETURN 
Kft  3000  GOSUB  19000 
to  3010  IF  SMODE=PMDDE  THEN  3030 
KD  3020  ON  SHODE  GOSUB  3110,3150 

,3030,3030,3190 
CP  3030  PMODE=SMDDE 
«  3040  SWIDTH=IMTiXRES/8): XRATI 

0#=XRES/XMftX: YRATIQ#=YRE 

S/YMAX 
C6  3050  CLSiPSET  (10,  10):  DRAW  "b 

ml0, 10d3e313f5":GET  (10, 

10)-(17,17)  ,  ARROW/. 
^I  3060  XARR0W=8:YARR0W=8 
8L  3070  CLS:LINE  (0,  0)  -  (  XRES-1 ,  Y 

RES-1) , ,B 
K   3080  GOSUB  6000: GOSUB  12000 
ei  3090  RETURN 
DD  3110  SCREEN  1 : COLOR  0, 1 : CaLR= 

1 : XRES=320: YRES=200: BO=0 

:MAXC0L0R=^4 
Hfl   3120    GOSUB    3230:MFLfl6S(3, 1)=2 

:  SEGADR=8<HBB00 :  SCRLEN  I  =  1 

6384 
PJ    3130    MFLAGS(3,4>=2:MFLAGS(3,5 

)=1:«FLABS(3,6)=1 
JL   3140    RETURN 
m   3150    SCREEN    2: XRES=640: YRES=2 

00:MAXCOLOR=2:COLR=1 
.16   3160    GOSUB    3230:MFLA6S(3,2)=2 

!  se(3ADR=«<Heg00;  SCRLEN '  =t 

63B4 
ID   3170   MFLAGS(3,4)=0:MFLAGS(3,5 

)=0:MFLAGS(3,6)=0 
J»  3180    RETURN 
JK   3190    SCREEN    5:  XRES=320:  YRES=2 

00:MAXCOLOR=16:COLR=1 
FE    3200    GOSUB    3230:  MFLAGS  (3,  3>  =2 

:  SEGftDR=8<H1800:  SCRLEN  !  =3 

2768! 
KB   3210    MFLAGS(3,4)=0:MFLAES(3,5 

)=0:MFLAGS(3,6)=1 
IH  3220  RETURN 
JC  3230  MFLA6S(3,  1)=1:MFLAGS(3,2 

)  =1 :  MFLAGS  (3, 3)  —PCJR:  RE 

TURN 
DL  4000  GOSUB  19000:  GET  (1,8)-(X 

RES-2,CY-1)  ,UND07. 
JO  4010  MSBl*="Please  enter  name 

":MSS2*""Q-f  picture  to  " 

+TYP* 
FF  4020  TW=SWIDTH/2-I0:LINE  (TW« 

a-10, 50) - (TW«B+160, 100) , 

0,BF:LINE  (TW»B-10, 50) - ( 

TW»8+160, 100), ,B:LINE  (T 

W«B-a,52)-(TW«8+lSa,9B) , 

,B 
Ht  4030    LOCATE    8,  SWIDTH/2-LEN  (MS 

B1»)/'2:PRINT    M3B1«:L0CAT 

E    9,SWIDTH/2-LEN(MSS2»)/ 

2: PRINT  MSG2» 
PG  4040  LINE  (TWt8-5,7B)-(TW»8+l 

S5,S9) , ,B:LaCATE  11,TW+1 

:MAXLEN=18: GOSUB  S000 


IP  4050  FILENAnE»=eDT«: IF  FILENA 
ME»>""  THEN  IF  MID$ (EDT» 
, LEN (EDT») +3» (LEN (EDT») > 
3),  DO"."  THEN  FILENAHE 
»=FILeNftMe»+".PI" +CHR* ( 4 
8+SMDDE) 

NC  4060  PUT  (1,B),UND0X,PSET 

JD    4070    RETURN 

HP  5000  EDT»="":  IX=PDS(0):  IY=CSR 
LIN:XI='IX8KBD=-1:  IF  MAXL 
EN-0    THEN   MAXLEN=79-IX 

66  5010    WHILE    KBD013 

6£  5020       XI=LEN(EDTS)+IX:LOCATE 
lY, XI: PRINT    "_";:KBD*=IN 
PUT* ( 1 ) 

PF  5030  KBD=ASC(KBD»): LOCATE  lY 
, XI: PRINT"     "; 

DC  5040  IF  KBD-S  AND  LEN(EDT*)> 
0  THEN  EDT»=LEFT*(EDT«,L 
EN(EDT«)-1) 

KH   5050       IF    LEN(EDT»)<I1AXLEN    AND 
CKBD    AND    127)>=32    THEN 
eDT«=EDT»+KBD*: LOCATE    lY 
, XI: PRINT    KBD*; 

61   5060    WEND 

J£  5070    RETURN 

JL  5500    CLOSE    #1 

£J  5510  GOSUB  l'?000:GET  {1,8)-(X 
RES-2,CY-1) ,UNDDX 

6ft  5520  TW=SWIDTH/2-10:LINE  (TW» 
B-10,50)-(TW»8+160,100), 
0,BF:L1NE  (TW«B-10,50)-( 
TW»3+160, 100) ,,B:LINE  (T 
Wt8-B,52)-(TW«8+15B,98) , 

PC   5530    IF    ERR>=5Z    THEN    MSG1$  =  "D 

OS    ERROR    »"+STR»(ERR) :EL 

SE    MSG1»="ERR0R    #"+STR*( 

ERR)+"    in    line"+STRt(ERL 

) 
JF  5540    MSG2*="  fR)etry    or     (Oanc 

el  " 
PD   5550   LOCATE    8,  SWIDTH/2-LEN  (MS 

Gl*)/2: PRINT    MSB1»:L0CAT 

E    10,SWIDTH/2-LEN(MSB2») 

/2: PRINT  MSG2« 
BF  5560  KBD*=INPUT«(n  :  IF  KBD«<  > 

"r"    AND  KBD*0"R"  AND  KB 

D*<>"c"  AND  KBD»0"C"  TH 

EN  5560 
Oft  5370  PUT  (1,8)  ,  UNDO'/.,  PSET 
HL  5580  IF  KBD*a"r"  OR  KBD«="R" 

THEN  RESUME  ELSE  RESUME 

NEXT 
FH  6000  XR#=XRES/MAXCDL0R:CH=11: 

CY=YRES-CH-1 
PH  6010  LINE  (0,CY)-(XRES-1,YRES 

-1) ,0,BF 
EJ  6020  FOR  1=0  TO  MAXCOLOR-1 
Oft  6030  LINE  (I«XR«+2,CY+3J-(ItX 

R#+XR#-3, CY+CH-3) , I ,  BF 
m   6040  NEXT 
8M  6050  LINE  (0,  CY)  -  (XRES-1,  YRES 

-1),,B 
JD  6060  LINE  (C0LRtXR»,CY+2)-(C0 

LRtXR#+XR«-l , CY+CH-2) , , B 
JF  6070  RETURN 
BK  9000  RESTORE  9090 
GD  9010  WHILE  MNSTRtO-x" 
KJ  9020   READ  MNID,  MNIT,  MFLAB,  MN 

STR« 
HE  9030   IF  MNSTR*<>"x"  THEN  BOS 

UB  11000 
FG  9040  WEND 

CN  9050  MFLABS(3,3)=-PCJR 
BK  9060  CM*="U11"+CHR«(14)+"1201 

3S14V15"+CHR»(17)+"16D21 
L22R23C24A25P26B36K37J38 

Kl  9070  RETURN 

BD  9090  DATA  1 ,  0,  1 ,  "Picture  " 
HE  9100  DATA  1,1,1,  "Undo  U" 
[N  9110  DATA  1,2,1,  "New    "N" 


LH  9120  DATA  1,3,  1 
PN  9130  DATA  1,4,  1 
EK  9140  DATA  1,3,  1 
U  9150  DATA  1,6, 1 
ND  9170  DATA  2,0,1 

tiJ  91B0  DATA  2,1,2 

NL  9190  DATA  2,2,  I 

PH  9200  DATA  2,3,  1 

■  I 

ID  9210  DATA  2,4,1 
JC  9220  DATA  2,5,  1 
PI  9230  DATA  2,6,1 
6P  9250  DATA  3,0,  1 

■  I 

HE  9260  DATA  3,  1,2 

0[  9270  DATA  3,2,1 

KO  9280  DATA  3,3,0 

r" 
n   9290  DATA  3,4,2 

J!  9300  DATA  3,5,1 


"Open  Q" 
"Save  S" 
"View  V" 
"Quit  "Q" 
"  Tools 

"  Draw       D 

"  Line       L 

"  Rectangle  R 

"  Circle     C 

"  Airbrush   A 

"  Paint      P 

"Preferences 

"  320  X  200 

"  640  X    200 

"  320x200  PCj 

"  cyn/mag/wht 

"  red/grn/yel 


JK  9310  DATA  3,6,1,"  Bkgd  color 
B" 

El  9320  DATA  3,7,1,"  Keyboard 
K" 

18  9330  DATA  3,8,1,"  Calibrate 
J" 

DD  9340  DATA  ,  ,  ,  x 

LJ  11000  MAXMENUS=a:MAXITEMS=8 

6F  11010  IF  NOT  MENUINIT  THEN  DI 
M  MTITLE*(MAX«ENUS,MAXI 
TEMS) , MFLAGS  CMAXMENUS, M 
AX  ITEMS) ,MITEMS(MAXMeNU 
S)  ,  HSME7.  (900«MAX  ITEMS+ 
B) , MX (MflXMENUS) :TOPID=0 
:MENUINIT=-1 

JE  11020  IF  MNID<1  OR  MNID>MAXME 
NUS  OR  MNIT<0  OR  MNIT>M 
AXITEMS  THEN  PRINT  "ILL 
EGAL  MENU  PARAMETERS" :S 
TOP 

IH  11030  MTITLE»(MNID,MNIT)=MNST 
R«: MFLAGS (MNID, MNIT) =MF 
LAG 

OL  11040  IF  MNIT>MI  TEMS  (MNID)  TH 
EN  MITEMS(MNID)=MNIT 

Eft  11050  IF  MNID>TDPID  THEN  TOPI 
D=MNID 

IF  11060  RETURN 

DJ  12000  IF  BWIDTH=0  THEN  IF  XSI 
ZE  THEN  SWIDTH=INT(XSIZ 
E/8+.S)  ELSE  SWIDTH=a0 

Wl  12010  MSGS="  ":MX(0)=8:SVX=PO 
S(0) :SVY=CSRLIN 

61.  12020  FOR  MI>=1  TO  TOPID:MX(MI 
) =MX (MI-1 ) +B+LEN (MTITLE 
t (MI , 0) ) »B: MSG»=MS6*+ " 
"+MTITLE»(MI,0) :NEXT:MS 
Gt=MSB»+SPACE$ (SWIDTH-L 
EN(MSG») ) 

PF  12030  LOCATE  1 ,  1 :  GOSUB  13000 

HC  12040  LOCATE  SVY, SVX : RETURN 

31  13000  Xl=POS(0>*8-8:  Y1=CSRLIN 
«a-8:PRINT  M3G*;:X2=X1+ 
LEN(MSQ»)*8-1:IF  X2>=SW 
IDTHtB  THEN  X2=SWIDTH<a 
-1 

LL  13010  GET  (XI,  Y1)-(X2,  Y1+7),Z 
ZTEMPX:PUT  (X1,Y1),ZZTE 
MPX, PRESET: RETURN 

HD  14000  XBAyE=POS(0) :YSAVE=CSRL 
IN 

K  14010  MNIT=0;MNID=0:eOSUB  200 
00 
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LN  14020  IF  MY>7  OR  MB=0  THEN  RE 

TURN 
FN  14030  WHILE  MB:BOSUB  20000;  WE 

ND 
EH  14040  «I  =  1:WHILE  MI<=TOPID  AN 

D  NOT  (MX>=MX(MI~1)  AND 
MX<=MX (MI)> :MI=MI+1:WE 

ND 
Dfi  14050  IF  MI>TOPID  THEN  RETURN 


CF  14060 
HJ  14070 

CI  14080 
FE  14090 


DK  14100 

n  14110 
HD  14120 


ftF '14130 

a  14140 

OL  14150 


IS    14160 


OD 

14170 

LI 

14180 

B£ 

14190 

HE 

14200 

60 

14210 

FO 

14220 

N6 

14240 

CK 

14250 

JB 

14260 

Jfl 

15000 

PC 

15010 

ON 

15020 

LA 

15030 

bh 

1S040 

KE 

16000 

[I 

16010 

CL 

16020 

EE 

16030 

flN 

16040 

IL 

16050 

nn 

16060 

JD 

16070 

DL 

16080 

MNID=MI 

IF  SNDFX  THEN  SOUND  100 

00,.  S 

GD5UB    16000:6OSUB    20000 

SftVDflCC=DflCC:  SAV*=CM$-:  C 

M»="":IF    KEYMDDE    THEN   M 

Y=2:NY=MY:DACC=-8 

WHILE    MX>=MX(MNID-1J     AN 

D  MX<=MX{MNID)  AND  MB=0 
GOSUB  20000 
MI  =  INT(I>1Y/B):IF  Mr>MIT 

EMS(MNID)  THEN  SQTD  141 

50 
IF  MI=HNIT  OR  MFLAGS(M 

NID,«I)=0  THEN  14180 
BOSUB  19000 
IF  MNIT>0  THEN  LOCATE 

MNIT+1, INT(MX(MNID-l>/a 

+2): PRINT  MTITLE»(MNID, 

MNIT) 
IF    M1>0    AND   MK^MITEMS 

<MNID)     THEN   MNITsflliLOC 

ATE    MNIT+1, INT(MX<MNID- 

n /8>  +2: MSB»=HTITLE« (MN 

ID.MNIT) :GDSUB  13000: IF 
SNDFX  THEN  SOUND  20000 

,-1 

IF  MI>MITEMS(MNID)  THEN 

MNIT=0 
WEND 

IF  MX<MX(MNID-1)  OR  MX> 
MXCMNIDl  THEN  MNIT=0 

IF  MNIT  THEN  SOSUB  1500 

0 

GOSUB  17000 

MHILE  MB: GOSUB  20000: ME 

ND 

IF  MNIT=0  THEN  MNID=0s I 

F  SNDFX  THEN  SOUND  150, 

2: SOUND  50,1 

GOSUB  18000: DflCC=SAVDAC 

C:Cn»-SAV»: LOCATE  YSAVE 

.XSflVE 

RETURN 

IF  MNrT=0  OR  HIGHLIBHT= 

0  THEN  RETURN 

MS6*=nTITLE* (MN ID, MNIT J 

:FOR  MI=1  TO  HIGHLIGHT: 

LOCATE  MNIT+l,XP:eOSUB 

13000 

IF  SNDFX  THEN  SOUND  100 

00-f-M  1*500,  .  1 

LOCATE  MNIT+1, XP: PRINT 

Mse* 

NEXT: RETURN 

WX1=MX (MNID-1> :WX2=MX (M 

N I D ) :  WY 1  =8 :  WY2-=B+a»M  I TE 

MS(MNID) : XP=INT(WXl/8) + 

2 

GOSUB  19000 

LOCATE  1,XP-1:PRINT  "  " 

+MTITLE*(MNrD,0) 

GET  (WXl-2,WYl)-(WX2+2, 

WY2+2) , MS A VEX 

LINE  {WX1-2,WY1-1)-(WX2 

+2,HY2+2) ,,B 

LINE  (WX1-1,WY1)-(WX2+1 

,WY2+n,0,BF 

FOR  MI=1  TO  MlTEMSfMNID 

) 

LOCATE  MI +1,XP: PRINT  M 
TITLE»(MNID,MI) 

IF  MFLAGS(MNID,MI)=2  T 


HEN  PSET  (WXl,MI*B+5) :D 
RAW  "f2e5" 
Eft  16090   IF  MFLAGS(MNID,MI)=0  T 
HEN  GET  (WXl,MI»a)-CWXl 
+LEN(MTITLES(MNID,MI) )« 
e+7,MI«B+7)  ,ZZTEMP7.:PUT 
(WX1,MI«8) ,ZZTEMPX,PSE 
T:PUT  {WXl+l,MIta>,ZZTE 
MPX 
OL  16100  NEXT  MI 
10  16110  RETURN 
H6  17000  GOSUB  19000 
81!  17010  PUT  (WX1-2,WY1),MSAVEX, 

PSET 
SB  17020  LOCATE  1 ,  XP-1 :  MS6«="  "  + 
MTITLE*(MNID,0) :GOSUB  1 
3000 
IF  17030  RETURN 
Ld  19000  IF  CURSaR=0  OR  T0GGLE=1 

THEN  RETURN 
HJ  18010  PUT  (MX.MY) ,ARROWX:TOSB 

LE-1: RETURN 
JF  19000  IF  CURSaR=0  OR  TO6GLE=0 

THEN  RETURN 
Fl!  19010  PUT  (MX.MY)  ,ARROWX:TOGG 

LE-0: RETURN 
W   20000  MB=0:PENUP=0 
il    20010  IF  NOT  FROZEN  THEN  S0=S 
TICK(0)  :S1«=STICK(1):MB= 
STRIG(1):IF  S0OXOFF  OR 
SIOYOFF  THEN  NX-INTM 
S0-XOFF)*XRAT1D#):NY=IN 
T( tSl-YOFF)«YRATIO#) : KE 
YMODE=0:ELSE  PENUP=-1 
JK  20020  MK*=INKEY»:KY=0: IF  MK*= 
""  THEN  IF   TIMER>=TM! 
THEN  ACC-ABS ( D ACC ) : TM ! = 
TIMER+. l:60Ta  20060  ELS 
E  20060 
L«  20025  KY=ASC(MIDS(MK»,2)+CHR* 
(0)):MB-MB  OR  -(KY=82}: 
KEYMODE— 1 
EE  20030  NX=-CNX+ACC»(KY=7S)-ACC 
«(KY-77))«(KY<>7n :NY=- 
(NY+flCC»  <KY-=72)  -ACCt  (KY 
-80) )»(KY<>71) 
««  20040  IF  KY=PK  THEN  ACC=ACC+2 
« (ACC< 13>  t (DACC>0> ! PK=K 
Y: ELSE  ACC-ABS ( DACC ) : PK 
=KY 
DC  20050  KY=ASC(MK*):IF  NOT  (KY> 
47  AND  KY<58>  THEN  WHER 
E-INSTR (CM», CHR« (KY+32* 
<KY>9&  AND  KY<123)))iIF 
WHERE  THEN  MNID-VAL(MI 
D» (CM», WHERE+1 , 1 ) ) : MNIT 
-VAL (MID»  tCM$, WHERE+2, 1 
)):IF  MFLABS(MNID,MNIT) 
-0  THEN  MNIT=0:MNID=0  E 
LSE  GOSUB  21010 
HK  20060  IF  NX  =  MX  AND  NY=MY  THEN 

RETURN 
OP  20065  XBOUND=XRES-XARROW:YBOU 

ND=YRES-YARROW 
Ei  20070  NX=-NX«(NX>0  AND  NX<=XB 
OUND) -XBOUNDt (NX  >XBOUND 
)-(NX<l) 
fO  20060  NY=-NY«(NY>0  AND  NY<=YB 
OUND) -YBDUND* (NY>YBOUND 
)-(NY<l) 
PN  20090  GOSUS  19000:MX=NX:MY=NY 

: GOSUB  18000 
HP  20100  RETURN 

JJ  21010  XP=INT(MX(MNID-l)/8)+2: 
MSG*="  "+MTITLE*(MNID,0 
): GOSUB  19000 
66  2101S  LOCATE  1,  XP-1:  PRINT  MSG 

« 
Nl  21020  IF  SNDFX  THEN  SOUND  100 

00,  .  1 
FL  21030  LOCATE  1,  XP-1:  GOSUB  130 

00 
10  21040  RETURN  © 
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Loading  And  Linking 
Commodore  Programs 

Part  5 
The  Commodore  128 


Jim  Butterfield,  Associate  Editor 


This  month's  installment  concludes 
the  series  hy  discussing  load/link 
techniques  on  Commodore's  newest 
eight-bit  computer,  the  128.  As  you'll 
see,  the  128's  powerful  BASIC  has 
simple,  built-in  commands  to  perform 
jobs  that  require  programming  tricks 
0)1  earlier  Commodore  computers. 


There  are  three  major  ways  to  con- 
nect programs  together.  Chaining 
allows  several  programs  to  perform 
a  job,  each  program  continuing  the 
work  that  a  previous  program  has 
done.  Load  lijiking  enables  one  pro- 
gram to  call  another,  with  the  new 
program  starting  fresh  on  a  new 
task.  Overlaying  allows  a  main  pro- 
gram to  call  in  supplementary  ma- 
terial, such  as  machine  language 
subroutines,  data  tables,  or  addi- 
tional screens.  All  these  techniques 
are  easy  on  the  Commodore  128  in 
128  mode.  For  64  mode,  of  course, 
you  can  use  the  techniques  ex- 
plained in  previous  articles  in  this 
series. 

Chaining 

A  program  that  is  chained  is  broken 
into  separate  modules,  and  each 
part  runs  separately.  The  programs 
may  proceed  in  a  specific  order;  for 


example,  an  input  program  may  be 

followed  by  a  sorting  program  and 
then  an  output  program.  Or  a  menu 
program  may  call  in  other  programs 
that  you  request. 

The  128's  DLOAD  command 
makes  disk  chaining  extraordinarily 
easy.  If  a  program  executes  the 
statement  DLOAD"THISPROG", 
the  computer  loads  and  runs  the 
program  named  THISPROG,  Vari- 
ables from  the  earlier  program  are 
preserved,  so  the  new  program  can 
continue  where  the  old  one  left  off. 

Th'e  chaining  pitfalls  of  earlier 
Commodore  machines  don't  apply 
to  the  128.  Because  the  128  stores 
the  BASIC  program  text  in  a  differ- 
ent bank  of  RAM  from  the  working 
values  (variables,  strings,  and  ar- 
rays), there  is  no  danger  that 
DLOAD  will  interfere  with  vari- 
ables. The  new  program  simply  re- 
places the  old  one. 

By  the  way,  the  128  has  no 
static  strings;  all  strings,  whether 
static  or  dynamic,  are  safely  stored 
in  bank  1. 

Let's  revise  the  rules  for  well- 
chained  programs  on  the  128: 

•  It  doesn't  matter  whether  the  first 
program  is  bigger  or  smaller  than 
subsequent  programs. 


•  Strings,  variables,  and  arrays  are 
passed  from  program  to  program. 

•  If  you  use  DEF  FN  definitions, 
redefine  them  in  each  program 
module. 

•  Arrays  should  be  DIMensioned 
only  once,  preferably  in  the  first 
program. 

A  Stiort  Example 

Let's  write  the  first  of  a  small  series 
of  Commodore  128  programs 
which  chain  together.  We'll  call  our 
first  program  START,  and  it  as- 
sumes that  you  want  to  record 
grades  for  eight  students. 

110  PRINT  "SIMPLE  GRADEBOOK 

DEMO  " 
120  DIM  N5{15),M(15) 
130  N=8 

140  FOR  J=l  TO  N 
150  PRINT  "STUDENT"; J; 
160  INPUT  "NAME";N?(J) 
170  INPUT  "SCORE";M(J) 
180  NEXT  J 
190  DLOAD  "MENU" 

When  the  program  runs  to  this 
point,  we  have  data  on  eight  stu- 
dents. Save  the  program  using  the 
filename  START. 

Now  let's  enter  the  menu  pro- 
gram. Type  NEW  and  enter  this: 

100  PRINT 

110  PRINT  "DO  you  WANT  TO — 
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120 

PRINT  "1.  CALCULATE  AVE 

RAGE  SCORE" 

130 

PRINT  "2.  CALCULATE  HIG 

h/low  scores" 

140 

PRINT  "3.  QUIT" 

150 

PRINT 

160 

INPUT  "YOUR  CHOICE  (1-3 

)",-c 

170 

ON  C  GOTO  300,310,320 

130 

GOTO  160 

300 

DLOAD  "C.AVG" 

310 

DLOAD  "C.HIL" 

320 

END 

Note  that  line  300  won't  run 
into  line  310,  nor  310  into  320.  The 
moment  the  program  executes 
DLOAD,  the  new  program  loads 
and  begins  running.  After  checking 
this  program  closely,  save  it  on  disk 
with  the  filename  MENU.  (The 
name  is  important;  don't  substitute 
any  other  filename.) 

Now  type  NEW  and  enter  this 
program: 

100  PRINT 

110  A=0 

120  FOR  J=l  TO  N 

130  A=A+M(J) 

140  NEXT  J 

150  PRINT  "AVERAGE  SCORE  FO 

R";N; "STUDENTS  =";A/N 
160  PRINT 
170  DLOAD  "MENU" 

Check  this  closely  and  save  it 
as  C.AVG.  Again,  the  filename  is 
important.  Now  type  NEW  and  en- 
ter this  program; 


100 

PRINT 

110 

H=M(1) :L=M(1) 

120 

FOR  J=l  TO  N 

130 

IF  H<H(J)  THEN  H=H(J) 

140 

IF  L>M(J)  THEN  L=M(J) 

150 

NEXT  J 

160 

PRINT  "HIGH  SCORE  WAS"; 

H;"BY: " 

170 

FOR  J=l  TO  N 

180 

IF  H=M(J)  THEN  PRINT  N? 

(J) 

190 

NEXT  J 

200 

PRINT  "LOW  SCORE  WAS";L 

; "BY:" 

210 

FOR  J=l  TO  N 

220 

IP  L=H(J)  THEN  PRINT  N$ 

(J) 

230 

NEXT  J 

240 

PRINT 

250 

DLOAD  "MENU" 

Again,  check  your  typing 
closely  and  save  it  as  C.HIL  to  com- 
plete the  set. 

Now  you  can  experiment  with 
chaining  on  the  128  by  loading  the 
first  program  (filename  START). 
Note  that  this  program  is  smaller 
than  both  MENU  and  C.HIL.  On 
earlier  Commodore  computers,  that 
would  be  a  problem.  But  it  doesn't 
matter  on  the  128. 


Load  Linking 

Chaining  links  one  program  to  the 
next  while  keeping  the  first  pro- 
gram's working  values  intact. 
That's  useful  when  you're  continu- 
ing a  calculation.  But  sometimes 
you'd  rather  throw  away  these  val- 
ues, allowing  the  newly  loaded  pro- 
gram to  start  fresh.  The  RUN 
command  does  exactly  that.  No 
fuss  or  bother — just  specify  the  ap- 
propriate program  name  and  you're 
in  business,  the  old  variables  disap- 
pear, the  pointers  are  reset,  and  the 
new  program  starts  running. 

To  illustrate,  let's  write  two 
very  simple  programs  and  use  a 
menu  program  to  select  which  one 
to  use.  Type  NEW,  then  enter  this 
simple  square  root  program: 

100  PRINT  "TABLE  OF  SQUARE 

( SPACE ) ROOTS " 
110  FOR  J=l  TO  20 
120  PRINT  J,  SQR(J) 
130  NEXT  J 

You  can  try  running  the  pro- 
gram if  you  want.  Save  it  with  the 
filename  SQUARE. 

Now  type  NEW  again  and  en- 
ter this  simple  cube  root  program: 

100    PRINT    "TABLE   OF    CUBE    RO 

OTS" 
110   X=l/3 
120    FOR    1=1    TO    20 
130    PRINT    I,     itX 
140    NEXT    I 

Again,  you  might  like  to  try 
running  the  program.  Save  it  with 
the  filename  CUBE.  Type  NEW 
again  and  enter  this  simple  128 
loading  program: 

100  DATA  SQUARE, CUBE 
110  READ  A5(1),AS(2) 
120  PRINT  "WHICH  ROOTS  DO  Y 

OU  WANT — " 
130  FOR  J=l  TO  2 
140  PRINT  J;A$(J) 
15  0  NEXT  J 
160  INPUT  "WHICH  (1  OR  2)"r 

N 
170  IF  N<1  OR  N>2  GOTO  120 
180  RUN  (AS(N)) 

Note  the  syntax  of  the  RUN 
command.  If  you  don't  specify  a 
drive  number,  the  computer  as- 
sumes you  want  drive  0.  If  you 
want  to  run  a  program  on  a  disk  in 
drive  1,  you  would  add  ,01  to  the 
end  of  the  filename.  And  if  you 
want  to  use  a  variable  for  the  file- 
name (as  shown  above),  it  must  be 
enclosed  in  parentheses. 

When  you  run  the  menu  pro- 
gram, it  loads  and  runs  SQUARE  or 


CUBE  as  selected.  When  the  new 
program  runs,  all  the  old  variables 
are  scrapped.  The  second  program 
starts  fresh. 

Overlaying 

This  technique  brings  in  extra  mate- 
rial to  accompany  a  BASIC  pro- 
gram. It  might  be  a  machine 
language  routine,  a  screen,  sprite 
shapes,  or  data  tables.  Whereas 
chaining  and  load  linking  move 
from  one  BASIC  program  to  anoth- 
er, overlaying  lets  the  same  BASIC 
program  continue  with  new  data  in 
memory. 

On  the  Commodore  128, 
BASIC  7.0's  BLOAD  command  can 
bring  in  the  material  with  no  prob- 
lems. It  loads  the  file,  and  the 
BASIC  program  continues  wdth  the 
next  statement.  It's  quite  straight- 
forward, especially  compared  to  the 
gyrations  required  on  earlier  Com- 
modore machines. 

However,  you  must  take  care 
not  to  BLOAD  information  into  the 
same  area  of  memory  occupied  by 
the  BASIC  program  itself  (a  crash 
usually  results).  BLOAD  lets  you 
specify  a  load  address,  but  it's 
usually  convenient  to  BLOAD  a  file 
into  the  same  memory  area  from 
which  it  was  saved. 

Here's  a  quick  example.  First, 
let's  set  up  a  short  machine  lan- 
guage routine  that  prints  a  string  of 
characters.  Type  NEW  and  enter 
this  program: 

100  DATA  0,26 

110  DATA  162,65 

120  DATA  138 

130  DATA  32,210,255 

140  DATA  232 

150  DATA  201,90 

160  DATA  144,247 

170  DATA  169,13 

180  DATA  76,210,255 

190  A=18 

200  FOR  J=l  TO  A 

210  READ  X 

220  T=T+X 

230  NEXT  J 

240  IF  T02525  THEN  STOP 

25  0  RESTORE 

260  D0PEN#8, "ML,P",W 

27  0  FOR  J=l  TO  A 

280  READ  X 

290  PRINT#8,CHR$(X) ; 

300  NEXT  J 

310  CLOSE  8 

Be  sure  that  line  290  ends  with 
a  semicolon.  Then  run  the  program. 
If  it  stops  at  line  240,  there's  a  typ- 
ing error  in  one  of  the  DATA  state- 
ments. Otherwise,  it  creates  a  one- 
block  machine  language  routine  on 
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disk  called  ML.  As  we'll  see  in  a 
moment,  this  routine  prints  the  al- 
phabet on  the  screen  when  called 
into  memory. 

Here's  our  main  program, 
which  loads  the  ML  module  we  just 
created: 

100  BANK  15 

110  BLOAD  "ML" 

120  PRINT  "HERE  IS  THE  ALPH 

ABET " 

130  SYS  6656 

140  PRINT  "HERE  IT  IS  AGAIN 

150  SYS  6656 

160  PRINT  "THAT'S  ALL . " 

BLOAD   just  brings   the   ML 

routine  into  memory  and  makes  it 
available  to  the  BASIC  program. 
Simple  and  effective. 

Overlays  are  popular  v«th  ma- 
chine language  programmers  on 
the  128  partly  because  they  are  so 
easy  to  do  and  partly  because  of  the 
mobility  of  BASIC  programs.  De- 
pending on  recent  graphics  activi- 
ties, a  BASIC  program  might  start  at 
address  7169  (the  usual  place)  or  at 
16385  (if  a  graphics  area  has  been 
allocated).  Rather  than  puzzle  over 
how  to  fit  a  machine  language  rou- 
tine into  memory  with  these  uncer- 
tain locations,  many  programmers 
use  an  overlay.  That  way  they 
know  where  the  routine  loads,  even 
if  they're  not  sure  where  the  BASIC 
program  might  be. 

Compared  to  the  complexity  of 
earlier  Commodore  computers, 
these  techniques  are  a  snap  on  the 
Commodore  128  in  128  mode.  Just 
remember:  DLOAD  for  chaining, 
RUN  for  load  linking,  and  BLOAD 
for  overlaying.  ® 

Copyright  1986,  Jim  Butterfield 
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Apple 
ProDOS 

Catalog 
Sorter 

William  J,  Coohon 


Here's  a  short  utility  program  that 

helps  you  organize  your  floppy  disks 
by  displayiiJg  or  printing  sorted  direc- 
tories. It  works  on  any  Apple  //-series 
computer  with  ProDOS. 


Sometimes,    locating    a    particular 

program  or  file  within  a  large  col- 
lection of  disks  is  like  searching  for 
a  contact  lens  in  a  bowl  of  water — 
especially  when  any  list  of  your 
disk  dii'ectories  will  inevitably  be 
outdated  and  in  no  particular  order, 
"ProDOS  Catalog  Sorter"  helps 
you  eliminate  the  confusion  by 
sorting  ProDOS  directories  and  list- 
ing them  on  your  monitor  or  printer. 
Type  in  the  program  below 
and  save  a  copy  before  running  it 
for  the  first  time.  There  are  two 
options  to  consider  when  typing 
Catalog  Sorter:  date  and  time 
stamping,  and  printer  set-up. 
Stamping  the  date  and  time  on  list- 
ings is  extremely  useful  for  keeping 
track  of  how  current  (or  how  old) 
the  information  is.  If  your  Apple 
doesn't  have  a  clock,  you  may  re- 
move certain  lines  from  Catalog 
Sorter  or  use  the  date/time-setting 
program  found  in  the   "Reader's 


Feedback"  column  in  November, 
1985  COMPUTE!.  Without  the  date 
and  time,  the  program  prints  zeros. 
To  remove  this  feature,  delete  lines 
280-320,  345,  445,  and  780. 

You  can  also  determine  how 
your  printer  should  generate  hard- 
copies  of  the  sorted  directories.  My 
directory  listings  are  printed  at  17 
characters  per  inch  with  8  lines  per 
inch  spacing.  That  way,  they  can  be 
trimmed  down  to  fit  neatly  inside  a 
disk  envelope  or  storage  case.  The 
printer  control  characters  for  an 
Apple  Imagewriter  are  set  up  in  line 
440,  If  you  want  to  substitute  your 
own  printer  options,  simply  alter 
these  codes.  If  you  want  your  print- 
er to  use  its  defaults,  delete  line  440 
completely.  The  variable  P  in  line 
440  is  set  to  a  value  of  1  to  allow  the 
program  to  reset  the  printer  options 
later  in  line  560,  which  may  also 
have  to  be  altered  for  other  printer 
control  characters. 

Sorting  Directories 

When  you  run  the  program.  Cata- 
log Sorter  prompts  you  for  drive 
number  1  or  2  (to  exit  the  program 
at  this  stage,  simply  enter  0).  Next, 
you  are  asked  whether  you  want 
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the  directories  sorted.  Type  N  to 
disable  sorting;  any  other  response 
sorts  your  directories  in  alphabeti- 
cal order.  When  might  you  want  to 
disable  sorting?  Sometimes  pro- 
grams or  files  are  grouped  under 
directories  logically,  according  to 
their  respective  functions.  But  other 
files — for  instance,  monthly  finan- 
cial data — might  be  organized  chro- 
nologically. Sorting  such  files 
alphabetically  would  make  the 
grouping  less  meaningful. 

After  reading  the  disk  directo- 
ry, the  program  asks  if  you  wish  to 
view  the  listing  on  your  screen  or 
route  the  output  to  your  printer.  It 
tells  you  which  directory  is  being 
sorted  (if  you  choose  to  sort),  then 
prints  the  list  and  moves  on  to  the 
next  directory  (if  any  others  exist). 
Multiple  directories  are  read,  sort- 
ed, and  listed  separately  to  main- 
tain the  order  of  the  directory 
hierarchy.  The  bottom  line  of  the 
directory  list  indicates  how  many 
disk  blocks  are  free,  how  many  are 
used,  and  the  total  available  (see 
figure).  When  all  directories  on  a 
disk  are  read,  sorted,  and  listed,  the 
program  gives  you  the  option  to 
quit  or  repeat  the  process. 

If  the  directory  list  is  displayed 
on  the  screen,  it  appears  in  the 
same  format  as  if  you  typed  Pro- 
DOS  CATALOG  command— in  80 
columns  (note  that  the  abbreviated 
CAT  command  uses  a  40-column 
format).  This  is  rather  difficult  to 
read  on  a  40-column  display,  so  an 
80-column  screen  is  recommended 


unless  you're  interested  mainly  in 
the  hardcopy  listings.  Line  260  sets 
up  S$  to  switch  to  the  80-column 
screen,  assuming  that  the  80-column 
hardware  is  addressed  at  slot  3  (the 
normal  slot  for  the  lie  and  lie).  If 
you  wish,  you  can  modify  Catalog 
Sorter  to  display  only  40  columns 
on  each  line:  Change  the  PR#3  in 
line  260  to  PR#0. 

Apple  ProDOS  Catalog 
Sorter 

For  instructions  on  entering  this  iisting,  piease 
refer  to  "COIVlPUTE!'s  Guide  to  Typing  in 
Programs"  in  ttiis  issue  of  COMputei. 

2B  100  DIM  SK*(100) ,DA»(100),SD« 

(10) 
13  110  GOTO  260 
IB  120  S  =  E 
(F  130  S  =  INT  (S  /  2):  PRINT  " . 


K  140 
FC  150 
iS  160 
34  170 
B9  1B0 

6F  190 

Fl  200 

91  210 
73  220 
!C  230 
F(  240 

?B  250 
11   260 


55  270 

31  280 

«  290 

7E  300 


IF  S  =  0  THEN  720 

K  =  E  -  SsJ  =  1 

I  =  J 

L-  =  I  +  S 

IF  SK*(I)  <  =  SK»(L) 

230 
TS  =  SK*(I):SK*a)  = 
L):SK*{L)  =  T» 
U*  =  Dfi*(I)!Dft*(I)  = 
L):DA*(L)  -  U« 
I  =  I  -  S 

IF  I  >  =  1  THEN  170 
J  =  J  +  1 

IF  J  <  =  K  THEN  160 
GOTO  130 

D«  =  CHR*  (4) :ES«  = 
(27) :P«  =  D«  +  "PR#1 
-  D»  +  "PR#3" 
P  =  0 

□  =  PEEK  (49040)  -  I 
PEEK  (49040)  /  32)  « 
Y  =  INT  (  PEEK  (4904 
2) 

M  =  (  PEEK  (49041)  - 
2>  *  8  +  INT  (  PEEK 
0)  /  32) 


THEN 
SK»( 
DA«( 


CHR* 
":3* 


NT  ( 

32 

1)  / 

Y  * 
(4904 


A  sample  directory  listed  generated  with  "ProDOS 
Catalog  Sorter." 

DATE!  12/30/85      TIMEi  19:00 
/C00Hm.3D0EC85 


tBASlC. SYSTEM 
CAT. SORT 
CAT.  SORT.  C0f*Y2 
CAT. SORT .TEXT 

iPRODOS 


TYPE    BLOCKS   MODIFIED 


m 

MS 

BAS 
TXT 
SYS 


21 
5 
5 
8 

31 


<N0  DATE) 
30-I)EC-85  18:30 
30-DEC-85  18:30 
30-DEC-B5  19:00 
<N0  DATE) 


CRATED 

fl-DEC-eS  22:00 
30-OEC-85  18:31) 
30-DEC-e5  18:30 
30-DEC-85  !9:B0 

8-DEC-S5  22:00 


9IDFILE  KIBfTYPE 

10240 
li66 

354dR-       0 
1S3A0 


BLOCKS  FREE:    203        BLOCKS  USED:     77        TOTAL  BLOCKS:    280        FILES:  5 


89  310  MI  =  PEEK  (49042)  :H  =  PEE 

K  (49043) 
M  320  MI«  =  STR*  (MI):  IF  MI  < 

10  THEN  MI*  =  "0"  +  MI* 
51  330  E  =  0:C  =  0sF  =  0:  PRINT 

S»!  PRINT 
Fi  340  HOME  :  HTAB  32:  PRINT  "Pr 

dDOS  CATALOS  SORTER" 
4C  345  BOSUB  780 
58  350  VTAB  8:  INPUT  "Drive  <1> 

or  <2>,  <0>  will  END?  ";N 
ftO  360  IF  N  =  0  THEN  SOTD  560 

92  370  IF  N  <  1  OR  N  >  2  THEN  34 

0 
♦3  380  PRINT  :  INPUT  '■<S>  sort  o 

r  <N>  no  sort?  "tB* 
U   390  IF  B*  <  >  "N-  AND  B*  <  > 

"n"  THEN  B*  =  "9" 
EC  400  GOSUB  600:  SOSUB  620 
E9  410  PRINT  :  INPUT  "<S>  screen 

or  <P>  printer?  ";A* 
EJ  420  IF  A*  <  >  "P"  AND  A*  <  > 

"p"  THEN  HOME  :  GOTO  450 
Sfl  430  A*  =  "P":  PRINT  P» 
E5  440  IF  P  =  0  THEN  PRINT  CHR* 

(9)"136N":  PRINT  E3*;  CHR 

»  C81);ES*;  CHR*  (66) -.P   = 
1 
6D  445  GOSUB  780 

I?  450  PRINT  :  PRINT  Ll«:  PRINT 
H  460  PRINT  L2*:  PRINT  L3»:  GOS 

UB  730 

93  470  IF  C  =  0  THEN  510 
7(1  480  FOR  ID  =  1  TO  C 

<D  490  BOSUB  600:  LI*  =  LI*  +  SD* 

(ID) :  BOSUB  620 
(F  500  PRINT  :  GOSUB  580:  PRINT 

LI*!  BOSUB  730:  NEXT 
It  510  GOSUB  5B0:  PRINT  LEFT*  (L 

5*, 64);"    FILES!  "F 
C9  520  IF  A*  =  "P"  THEN  PRINT  S» 
5C  530  PRINT  :  INPUT  "MORE  (Y,  N) 

?  ";A« 
Jl  540  IF  A*  =  "N"  OR  A*  =  "n"  T 

HEN  560 
K   550  BQTO  330 
M   560  IF  P  =  1  THEN  PRINT  P»:  P 

RINT  ES*;  CHR*  (99):  PRIN 

T  S* 
8fl  570  PRINT  "Bye!":  END 
flS  580  IF  ft*  =  "P"  THEN  PRINT  P* 
27  590  RETURN 

CB  600  PRINT  D»"PREFIX,D"N 
M   610  PRINT  D»"PREFIX":  INPUT  L 

1*!  RETURN 
37  620  PRINT  D*"OPEN  "LI*" ,  TDIR" 
F4  630  PRINT  D*"READ  "LI* 
F!  640  INPUT  L1»:E  =  0 
AC  650  INPUT  L2»:  INPUT  L3« 
E4  660  INPUT  L4* 
DB  670  IF  L4«  =  ""  THEN  710 
44  680  E  =  E  +  1:SK*(E)  =  MID*  ( 

L4«,2,15) !Dfl*(E)  =  L4* 
74  690  IF  MID*  (L4*,I8,3)  =  "DIR 

"  THEN  C  =  C  +  1:SD*(C)  = 
MID*  (L4*,2,15> 
19  700  GOTO  660 
43  710  IF  B«  =  "S"  THEN  PRINT  "N 

Dw  sorting  "LIS".";!  GOTO 
120 
4C  720  INPUT  L5*;  PRINT  :  PRINT 

DS" CLOSE  ":  RETURN 
'f  730  GOSUB  580:  F  =  F  +  E 
E8  740  IF  E  >  0  THEN  FOR  I  =  1  T 

0  E:  PRINT  DA* (I  I:  NEXT 

7E  750  IF  E  ■=  0  THEN  PRINT  "   (D 

1  RECTORY  EMPTY ) " 
ft8  760  PRINT  :  IF  AS  = 

PRINT  S* 
2S  770  RETURN 
EB  780  HTAB  28:  VTAB  4 

ATE:  "M"/"D"/"Y" 
"H";"MIt:  RETURN 


THEN 


PRINT  "D 

TIME: 
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Mandelbrot  Graphics 
For  Commodore 


A  mathematics  phenomenon  known 
as  the  Mandelbrot  set  can  provide  the 
basis  for  some  stunning  computer 
graphics.  The  following  programs 
make  it  possible  to  generate  a  wide 
variety  of  colorful  high-resolution  im- 
ages which  can  be  saved  on  disk  for 
future  viewing.  The  programs  work 
on  any  Commodore  64  (or  128  in  64 
mode). 


One  of  the  most  beautiful  features 
of  the  Commodore  64  is  its  multi- 
color bitmap  mode,  which  lets  you 
create  detailed  high-resolution  im- 
ages using  several  colors.  We're  all 
familiar  with  the  many  drawing 
programs  that  work  like  video  paint 
boxes,  letting  you  draw  directly  on 
the  screen.  But  the  computer  can 
create  beautiful,  highly  intricate  im- 
ages all  by  itself,  using  relatively 
simple  mathematical  methods. 
"Mandelbrot  Graphics  For  Com- 
modore" allows  you  to  generate  in- 
teresting hi-res  pictures,  save  them 
to  disk,  and  reload  them  at  any 
time. 

Creating  Screens 

Type  in  and  save  Program  1.  When 
you  run  the  program,  it  immediate- 
ly clears  the  hi-res  screen  and  be- 
gins to  draw  an  image  based  on  the 
Maiidelbro(  set  (see  below).  You'll 
need  to  be  patient:  A  full-screen  hi- 
res image  takes  a  long  time  to  cre- 
ate. Although  the  program  uses 
machine  language  routines  to  clear 
the  hi-res  screen,  the  drawing  com- 
putations are  done  in  BASIC. 

In  multicolor  bitmap  mode,  up 


Steven  M.  Thorpe 


to  four  different  colors  can  be  dis- 
played in  each  character  position. 
Distortion  occurs  if  a  program  calls 
for  too  many  colors  in  a  single  posi- 
tion. Since  you  can  have  only  one 
screen  background  color  at  a  time, 
each  character  position  is  actually 
limited  to  three  independent  colors. 
While  this  may  seem  a  severe  re- 
striction, spectacular  graphics  are 
still  possible.  Program  1  selects  an 
available  color  memory  source  (not 
yet  used  in  the  current  character 
position  unless  used  for  the  current 
color),  and  then  sets  the  appropri- 
ate color  code  and  bit  pattern  to 
display  that  color. 

If  you're  impatient  for  results 
and  don't  mind  viewing  a  smaller 
image,  replace  lines  180  and  190 
with  these  lines  (be  sure  you've 
saved  the  original  version  of  the 
program  before  you  make  this  modi- 
fication): 

ISO  FOR  XO=XL  TO  XR  STEP  (XR-XL)/ 

159*2 
190  FOR  Y  =  YT  TO  YB  STEP  (YB-YT)/ 
199'2 

With  this  change.  Program  1 
draws  an  image  about  one-fourth 
the  size  of  the  screen,  in  roughly 
one-fourth  the  time  it  would  take  to 
draw  a  full-screen  picture.  To 
change  back  to  a  full  screen,  retype 
lines  180  and  190  as  listed  in  Pro- 
gram 1.  This  can  be  useful  when 
modifying  the  program  to  produce 
different  results.  You  can  view  the 
results  in  a  reduced  scale  to  save 
time,  then  draw  it  at  normal  size  to 
be  saved  to  disk.  Press  RUN/STOP- 
RESTORE  if  you  need  to  break  out 
of  the  program. 


The  variables  XL  and  YB  play  a 
crucial  part  in  defining  what  the 
final  image  looks  like.  XL  sets  the 
left  boundary  of  the  Mandelbrot  set 
and  YB  sets  the  bottom.  Similarly, 
XR  defines  the  right  boundary  and 
YT  defines  the  top.  By  changing  the 
values  of  XL,  YB,  and  SR,  you  can 
"zoom  in"  for  a  closer  look  at  any 
given  area  of  the  Mandelbrot  set. 
You  don't  need  to  worry  about  the 
value  of  YT:  The  program  automat- 
ically gives  YT  the  value  needed  to 
shape  the  screen  image  correctly. 

Line  170  contains  color  codes 
used  for  various  parts  of  the  image. 
Changing  these  numbers  alters  the 
colors  used  in  the  display  (see  your 
user's  manual  for  an  explanation  of 
color  codes).  Lines  222-230  shape 
the  zones  for  each  different  color.  In 
line  120,  the  variable  SM  deter- 
mines the  spacing  between  differ- 
ent colors,  and  CT  controls  how 
much  detail  is  shown.  Remember, 
using  too  many  colors  in  zones  of 
rapid  color  change  can  lead  to  ex- 
cessive color  distortion.  Together, 
the  variables  SM  and  CT  affect  how 
long  it  takes  to  complete  a  Mandel- 
brot image. 

invisible  Lines  Of  Power 

Programs  2  and  3  contain  modifica- 
tions for  Program  1  which  generate 
different  displays  based  on  the  un- 
seen forces  of  nature.  To  use  these 
programs,  you  must  already  have  a 
copy  of  Program  1.  To  enter  Pro- 
gram 2,  first  load  Program  1  into 
memory,  then  type  in  the  lines  listed 
in  Program  2  (they  will  replace 
lines    100-240    of   the    original 
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"Mandelbrot  Graphics  For  Commodore" 
creates  detailed  hi-res  images  based  on 
an  unusual  mathematics  technique. 

program).  When  that's  done,  save 
the  program  using  a  different  file- 
name from  the  one  you  used  for 
Program  1. 

Program  2  uses  the  color 
schedule  to  paint  patterns  that  re- 
semble the  magnetic  lines  of  force 
between  two  wires  charged  with 
electricity.  Displays  of  this  type 
make  it  easier  to  visualize  forces 
such  as  electromagnetism,  which 
are  invisible  to  the  naked  eye,  yet 
have  a  profound  effect  in  the  world 
around  us.  Of  course,  you  can  enjoy 
the  displays  even  if  you  don't  un- 
derstand the  scientific  concepts  in- 
volved in  these  simulations. 

You  can  also  modify  Program  2 
to  produce  different  effects.  Change 
the  values  of  variables  II  and  12  to 
see  what  the  magnetic  pattern  is 
like  for  various  current  levels.  For 
instance,  if  you  set  II  to  25  and  12  to 
— 100,  the  program  displays  an  op- 
posed current  flow  with  one  current 
four  times  as  large  as  the  other. 
Larger  current  levels  cause  closer 
flux  lines,  more  detail,  and  a  greater 
chance  of  color  distortion. 

To  enter  Program  3,  load  Pro- 
gram 1,  type  the  lines  listed  for 
Program  3,  then  save  the  entire 
program  under  a  unique  filename. 
Program  3  simulates  another  invisi- 
ble, yet  powerful  force  of  nature — 
the  interaction  of  gravitational 
forces  between  the  earth  and  the 
moon.  The  black  region  on  the  right 
is  the  zone  of  gravity  equal  to  that 
at  the  surface  of  the  moon.  The 
program  accurately  draws  the 
moon  to  scale  relative  to  the  gravi- 
tational potentials  in  effect. 

Line  120  of  Program  3  posi- 
tions the  earth  and  moon  relative  to 
the  upper  left-hand  corner  of  the 
screen,  using  an  x,y  coordinate 
scheme  in  which   the  screen   has 


r/i(S  image  simulates  the  lines  of  elec- 
tromagnetic force  surrounding  two  elec- 
trical conductors. 


horizontal  positions  0-159  and  ver- 
tical positions  0-199.  The  earth  can 
be  shown  by  assigning  it  a  value  on 
the  screen.  You  can  create  an  inter- 
esting image  by  placing  the  earth  at 
coordinates  53,99  and  the  moon  at 
coordinates  106,99. 

The  variable  F  determines 
which  color  is  plotted.  F  represents 
the  gravitational  force  (measured  in 
Newtons)  on  a  stationary  one-kilo- 
gram mass.  Variable  DE  represents 
the  distance  from  earth,  and  DM 
signifies  the  distance  from  the 
moon.  The  region  close  to  the  moon 
was  made  one  color  because  it  has 
such  a  steep  gravitational  gradient 
that  there  would  be  excessive  color 
distortion  if  it  were  not  specially 
treated. 

Saving  And 
Loading  Screens 

After  you  create  a  screen,  it's  easy 
to  save  it  on  disk  for  future  use. 
Simply  press  S  after  the  image  is 
completely  drawn.  Before  saving  an 
image,  make  sure  that  the  disk 
drive  contains  a  disk  with  at  least 
40  blocks  free.  Three  different 
memory  areas  must  be  saved  in 
separate  disk  files  to  reconstruct  the 
image  accurately. 

To  avoid  spoiling  the  image 
with  a  printed  prompt,  the  program 
switches  temporarily  to  a  text 
screen  to  allow  you  to  enter  a  file- 
name (which  should  contain  no 
more  than  12  characters).  The  pro- 
gram then  manipulates  the  name 
you  enter  to  create  distinct  file- 
names for  the  three  files  necessary 
to  store  all  the  picture  information. 
The  prefix  M-  is  added  to  the  file- 
name you  specified  for  the  first  file. 
This  file  contains  the  hi-res  bitmap 
of  the  image.  For  the  next  file,  the 
suffix  5  is  added  in  addition  to  the 


This  pattern  is  created  by  a  program 
that  represents  the  gravitational  forces 
around  the  earth  and  the  moon. 


M-  prefix.  This  file  contains  the 
screen  memory  for  the  image.  Fi- 
nally, for  the  third  file,  the  suffix  SC 
is  added  in  addition  to  the  M-  pre- 
fix. This  file  contains  the  color 
memory  for  the  image. 

Choose  your  filenames  care- 
fully; the  program  erases  any  exist- 
ing files  with  the  specified  filename 
before  it  stores  the  new  files.  Thus, 
if  you  accidentally  reuse  an  existing 
name,  you  may  overwrite  a  previ- 
ously saved  masterpiece. 

After  you  enter  the  filename, 
the  program  switches  back  to  the 
hi-res  image  while  the  screen  is  be- 
ing saved. 

Program  4  loads  the  stored  im- 
age from  disk  and  displays  it  on  the 
screen.  When  you  run  this  program, 
it  asks  you  to  enter  a  filename.  Give 
the  filename  you  specified  when 
you  saved  the  image  with  Programs 
1-3.  Don't  worry  about  the  prefixes 
and  suffixes;  Program  4  takes  care 
of  these  and  loads  all  three  files 
necessary  to  recreate  the  image. 

What  Is  A  Mandelbrot  Set? 

Although  Mandelbrot  images  have 
attracted  wide  interest  as  a  means 
of  generating  graphics,  the  origin  of 
these  pictures  lies  deep  in  the 
realms  of  mathematics  and  engi- 
neering. In  brief,  certain  engineer- 
ing problems  require  the  use  of 
complex  numbers.  A  complex  num- 
ber consists  of  two  parts:  a  real^zrX 
and  an  imagimry -p^rt.  The  real  part 
of  the  number  is  like  the  numbers 
we  use  every  day.  For  the  imagi- 
nary part,  special  rules  of  multipli- 
cation apply.  For  instance,  if  you 
square  the  imaginary  part  of  a  com- 
plex number,  the  result  becomes 
negative  and  real.  Thus,  imaginary 
numbers  are  often  written  in  engi- 
neering  calculations   as   a   real 
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number  multiplied  by  the  constant 
i,  where  /  can  be  considered  the 
square  root  of  —1. 

The  real  and  imaginary  parts  of 
a  complex  number  can  be  plotted 
on  a  coordinate  grid  known  as  the 
complex  plane,  Benoit  B.  Mandel- 
brot, a  researcher  at  IBM,  discov- 
ered that  points  inside  a  certain 
region  of  the  complex  plane  behave 
strangely  when  they  are  repeatedly 
squared  and  the  result  of  each 
squaring  is  added  to  the  original 
point.  Some  points  get  large  rapid- 
ly, while  their  near  neighbors  grow 
slowly.  Other  neighboring  points 
don't  grow  at  all.  As  the  process  is 
repeated,  these  tendencies  are  ac- 
centuated. The  region  where  these 
strange  results  occur  is  called  the 
Mandelbrot  set  after  its  discoverer. 

While  Mandelbrot  sets  have 
certain  practical  applications,  they 
can  produce  striking  results  when 
you  translate  the  numeric  values 
into  different-colored  points  on  a 
computer  screen.  These  programs 
color  each  point  on  the  hi-res 
screen  according  to  how  fast  it 
grows  during  the  iterative  (repeti- 
tive) process.  Computing  the  entire 
set  requires  an  enormous  number 
of  calculations,  so  all  of  these  pro- 
grams take  some  time  to  com- 
plete— many  hours  in  some  cases. 
You  may  want  to  start  a  program 
running  at  bedtime  so  the  picture 
will  be  finished  by  the  next  morn- 
ing. (There's  no  need  to  leave  the 
monitor  on  all  night,  of  course.) 

If  you'd  like  to  photograph  a 
finished  image,  shoot  the  photos  in 
a  darkened  room  to  eliminate  screen 
glare.  Load  a  single-lens  reflex  cam- 
era with  medium-speed  film  (ISO 
100  works  well),  mount  the  camera 
on  a  tripod,  attach  a  cable  release, 
aim  the  viewfinder  squarely  at  the 
screen,  and  use  a  very  slow  shutter 
speed — no  faster  than  1/4  second. 
If  your  camera  has  an  automatic 
exposure  mode  or  a  built-in  light 
meter,  it  should  indicate  a  lens  ap- 
erture of  f/8  to  f/16. 

For  instoictions  on  entering  these  listings, 
please  refer  to  ■'COMPUTERS  Guide  to  Typing 
In  Programs"  In  this  issue  of  compute!. 

Program  1 :  Mandelbrot 
Graphics 

QR  10  POKE56,32sPOKE55,0:CLR:F 
ORA=a28TO908  s  READS : POKEA 
B : NEXT 

RR  20  DATA  162,2,160,4,208,4,1 
62 , 4 , 160 , 2 , 142 , 10 1 , 3 , 142 


,127,3,140,103,3 

GD  30  DATA  140,129,3,169,0,133 
,2,133,4,169,216,133,3,1 
69,200,133,5,162,3 

AE  40  DATA  160,0,177,2,145,4,1 
36,208,249,230,3,230,5,2 
02,16,242,169,4,133 

JF  50  DATA  3,169,204,133,5,162 
,3,160,0,177,2,145,4,136 
,208,249,230,3,230 
DATA  5,202,16,242,96 
REM MANDELZOOM-6 

SH=7tCT=40!REM  DETEKMIN 

ES  DETAIL 

REM  DEFIHE  REGION  EXAMI 

BED  BELOW 

XL=-2 . 2 !XR= . 58 : YB=-1 . 25 

DX=(XR-XL) :YT=YB+DX*.9 

DIMCO ( 15 ) : FORI=0TO15 : RE 

ADCO(I) :NEXT 

GOSUB360:M=159/DX:B1=-M 

•XL 

HH=199/ ( YB-YT ) ! BB=-MM*Y 

T 

DATA  1,3,4,2,8,7,13,5,1 

4,6,4,15,14,6,4,15;REM 

{SPACE  3 < —  COLOR  CODE  S 

CHEDULE 

FOR  X0=XL  TO  XR  STEP(XR 

-XL)/159 

FOR [2  SPACES )Y=YT  TO  YB 

STEPtYB-YT)/199 
A=X0*X0-Y*Y+X0 :B=2*X0 *Y 
+Y:C=0 

R=A*A-B*B+X0  < I=2*A*B+Y« 
C=C+liS=-tlSR(R*R+I*I)  lA- 
RiB=ItIFS<SMTHENIPC<CTT 
HEN210 

X1=INT (M»X0+B1+. 5 ) 
Yl-INT(MM*Y+BB+.5)iIFC< 
6THENC0=C0(  (C/15-mT(C/ 
15))*15) !GOTO240 

IFC<CTTHENC0=1 iGOTO240 
IFC««CTTHENCO=0 
GOSUB440INEXT  Y,X0 
REM  SAVE  PICTURE  IF  "S" 

IS  PRESSED 
GETA$ I IFA?  < > "S "THEN260 
SYS828ePOKE53272,21sPOK 
E53265,27sPOKE53270,200 
PRINT"ECLR){2  downIente 
R  FILENAME  (UP  TO  12  CH 
AR) " iINPUTF? !F5""M-"+LE 
FT$(F?,12) 
SQ  270  POKE53272,29!POKE53265, 
59jPOKE53270,216iSYS834 
sK-8192iE-16191i G0SUB3  0 
0 

F5»T$+"S"  sK=1023  iE="2023 
IGOSUB300 

F$=T$+"C"jK='55296iE=562 
95 IGOSUB300 IGOTO260 
F?»"0 1 "+F5  tOPENl 5,8,15, 
"S"+F5 1CL0SE15  tT$=F$ 
ZK-PEEK(53)+256*PEEK(54 
)-LEN(T?) iP0KE782,ZK/25 
6  i  POKE781 , ZK-PEEK( 782 ) * 
256 

POKE780,LEN(T?) iSYS6546 
9 1 POKE780 , 1 >  P0KE7S1 , 8 • P 
0KE7B2,1:SYS65466 
POKE254,K/256:POKE253,K 
-PEEK ( 254 ) * 256  SPOKE780 , 
253iK=-E+liPOKE782,K/256 
POKE781 , K-PEEK( 782 ) *  256 
I SYS65496 .T$=RIGHT? (T$ , 
LEN(T5) -2): RETURN 

REM SET  COLOR  GRAP 

HICS  MODE  AND  CLEAR  MEM 
ORY  TO  BE  USED  


EK 

60 

AB 

100 

PH 

120 

CE 

125 

GK 

130 

8P 

137 

MS 

140 

AC 

150 

SJ 

160 

MK 

170 

DS 

180 

PQ 

190 

EF 

200 

RJ 

210 

QR 

220 

RQ 

222 

QF 

225 

XK 

230 

SB 

240 

DP 

250 

KX 

260 

FB 

261 

SF 

262 

EM 

280 

XH 

290 

EM 

300 

SJ 

310 

HM 

320 

EE 

330 

SD 

340 

BX 

350 

XF 

360 

CJ 

370 

AK 

380 

XD 

390 

GB 

400 

HM 

410 

RQ 

420 

AH 

430 

AJ 

440 

EJ 

450 

SJ 

460 

RG 

470 

EF 

480 

JK 

490 

KC 

500 

GF 

510 

XR 

520 

SG 

530 

KJ 

540 

PD 

550 

GF 

560 

EB 

570 

AE 

580 

HD 

590 

ES 

600 

DH  610 


DF  620 


FJ  630 


PRINT" !CLR) " iFORI-49152 

T049 2 48  I READJ : POKEI , J I N 

EXT I POKE53  280 , 0 i POKE53  2 

81,0 

POKE251 , 0 1POKE2S2 , 32 iPO 

KE253,63iPOKE254,63tPOK 

E49169,0iSYS49166 

SYS49152iPOKE785,39iPOK 

E786,192 

BASE-8192 iPOKE53272,PEE 

K(53272)OR8 

POKE5326S,PEEK{ 53265 )0R 

32iPOKE53270,PEEK(53  270 

)0R16 

POKE2  51,0iPOKE252,216tP 

OKE253 , 23 1 : POKE254,  219 1 

SYS49166! RETURN 

REM  PLOT  Xl,Yl,CO 

{SPACE} 

REM{2  SPACES }0<=X1<160 

{2  SPACES )0<=Y1< 200  0<= 

C0<15 

IF  CO=0  THEN  RETURN  I  REM 

USE  SCREEN  COLOR  CODE 
{SPACE) IN  53281 
X=2*Xl+l:RO=INT(Yl/8) iC 
H=INT (X/8 ) :LN=Y1AND7 ! BY 
=BA+RO*320+8*CH+LN 

REM  SET  COLOR  AND  P 

IXEL 

SB=1024+RO*40-I-CH:REM  SC 
REEN  BYTE 

SE="PEEK(  SB )  I  S9=SEAND240 
REM  USE  HI  SIYBBLE  OP  SB 

IF  OK 
IF ( S9=0ORS9=CO*16 ) THEN 
{SPACE) POKE  SB,SE0R(CO* 
16) IGOTO580 
REM  USE  LO  NYBBLE  OF  SB 

IF  OK 
S8"SEAND15tIF(S8-=-0ORSS= 
CO) THEN  POKE  SB,SEORCO: 

x=x-i iGOTosaa 

REM  USE  COLOR  MEM.  IF  I 

T  IS  OK 

CM=SB+54272!REM  COLOR  N 

YBBLE  ADDR. 

Cl=PEEK(CH)tC3=ClAND15 

IF(C3=0ORC3=CO)THENPOKE 

CM, CI  ORCO!GOSUBS80iX=X 

-1 

REM  TOO  MANY  COLORS  TRX 

S  CHAR. 

BI=7-(XAND7) sPOKEBY,PEE 

K{BY)0RC2tBI)sRETURN 

DATA  169,0,133,251,133, 

253,169,4,133,252,169,8 

,133,254,160,0,169,27,1 

45,251 

DATA  230,251,208,2,230, 

252 , 16  5 , 251 , 197 , 253 , 208 

,240,165,252,197,254,20 

8,234 

DATA  96,32,43,188,240,5 

2,16,3,76,72,178,32,199 

, 187 , 165 , 97 , 56 , 233 ,129, 

8,74 

DATA  24,105,1,40,144,2, 

105,127,133,97,169,4,13 

3,103,32,202,187,169,92 

,160,0 

DATA  32,15,187,169,87,1 

60,0,32,103,184,198,97, 

196,103,208,233,96 


Program  2:  Magnetic  Forces 

HX  100  REM MAGNETIC  FIE 

LD 

CR  120  DIMC0(15) :FORI=0TO15iRE 

ADCO(I) :NEXT 
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SG 

130 

MM 

140 

6R 

150 

DC 

160 

PG 

170 

SF 

180 

FD 

190 

QJ 

200 

GP  210 

HH  220 
PH  230 
XJ  240 


REM  WIRE  LOCATIONS ,  CUR 

RENT  LEVELS  &  PHYSICAL 

C  SPACE  1 CONSTANTS 

XA=53iYA=99iXB=107iYB=9 

9 : 11=100  sI2=-100 :K=2E-7 

:GOSUB3e0 

DATA  0,0,0,6,6,6,6,5,5, 

5,5,5,4,4,4,4:REM  < 

COLOR  CODE  SCHEDULE 
FOR  X0-0  TO  159  I  FOR  Y 
=1^0  TO  199 

nR=USR{ ( XA-X0 ) T  2+ ( YA-Y) 
T2) 

DB=USR( (XB-X0)T2+(YB-Y) 
T2) 

B=K*I1/DA+K*I2/DB 
X1-X0 rYl-YiCO-ABS (INT(B 
*lEe+.S)) iCO-CO({C0/15- 
INT (CO/15 ))* 15 ) 1GOSUB42 
0 

Yl-199-YiGOSUB440jNIKT 
{SPACEJY,X0 
REM 
REM 
REM 


Program  3:  Forces  Of 
Gravity 


SR 


EARTH- MOON    SYSTE 


5  REM — 

M 

PD  100  DIMC0(15) iFORI=0TOlSiRE 

ADCO(I)lNEXT 
RR  110  REM  BODY  LOCATIONS  &  MA 
SSES 


GC  120  XE— lllIYE-99lXM-a0JYM- 
99  tEM«6E24  tMM=7  . 3E22 iG- 

. 667E-10 1GOSUB360 :XL=XE 

iYB"YM 
KM  130  CF=3.8E8/(XM-XE) 
EA  140  DATA14,7,11,2,9,8,7,13, 

5,3,14,6,4,2,9,8:REM  <- 

COLOR  CODE  SCHEDULE 

BE  150  REM  CF  CONVERTS  SCREEN 

{SPACE} UNITS  TO  METERS 

(SPACE J AND  1.48  CORRECT 

S  X-Y  ASPECT 
RX  160  FOHX0"0TO159iFORY=-0TO99 
EX  170  D1-XE-X0iD2"CYE-Y)/1.4B 

iD3=XM-X0 jD4=(YM-Y)/1 .4 

8 
FM  180  DE«USR(D1*D1+D2*D2)*CF+ 

1 « DM=USR( D3*D3+D4*D4 ) *C 

F+1 
XD  190  FE-G*EM/DE/DEiFM=G*MM/D 

M/DM»FX=FE*C0S(D1/DE)+F 

M*C0S(D3/DM) 
KQ  200  FY»FE*SIN(D2/DE)+FM*SIN 

{D4/DM) 
FH  210  F-USR(FX*FX+FY*rY) 
QH  220  Xl-X0>Yl=YlCO=INT(F*5E3 

+.5) |CO"CO(ABS(CCO/15-I 

NT(C0/15))*15)) 
XH  222  REM 
DJ  225  REM 
SF  230  IFF>  .00S5THENIFX0>-40THE 

NCO-4 I IFF> . 167THENNEXTX 

0 
FH  240  GOSUB450»Yl=199-YiGOSUB 

450!NEXT  Y,X0 


Program  4:  Image  Loader 

PS    100    REM MULTI-COLOR    BIT    M 

AP    RECALL 

HF  110  INPUT"{CLR){3  DOWNIENTE 

R  FILEHAME";F5iF5="M-"+ 

F$ 
PG  120  PRim"'{CLRl"iPOKE5327  2, 

( PEEK { 53272 )AND240 ) OR8 i 

POKE53265, PEEK ( 53265 )OR 

32 
CR  130  POKE53270,PEEK(53270)OR 

16 :POKE53280,0:POKE532e 

1,0 
SR  140  F5="0:"+F$tGOSUB180 
AR  150  F$=F?+"S"5GOSUB180 
EH  160  F$=F$+"C":GOSUB180 
FX  170  GOTO170 
AM  180  T5=F5sZK=PEEK(53)+256*P 

EEK(54)-LEN(T$) :POKE782 

,ZK/256 
HJ  190  POKE781,ZK-PEEK(782)*25 

6!POKE780,LEN(T$) :SYS65 

469 
EF  200  POKE780,l:POKE7ai,8iPOK 

E782,1:SYS6S466 
SQ  210  POKE780,0!SYS65493iRETU 

RN 


Copies  of  articles  from  this 
publication  are  now  available  from 
the  UMI  Article  Clearinghouse. 

Por  more  information  about  the 
Clearinghouse,  please  fill  out  and  mail  back 

the  coupon  below. 

^Mlvrticle, 
(Jeaniighoiise 


Yes!  I  would  like  to  know  more  about  UMi  Article  Clearinghouse. 

1  am  interested  in  electronic  ordering  through  the  following  systemlsl: 

D  DiALOG/DialordEr  D  ITT  Dialcom 

D  Ontyme  D  OCIX  I LL  Subsystem 

D  Other  I  please  specify!- 


n  lam  interested  inscndingmy  order  by  mail. 
D  Please  send  me  your  current  catalog  and  user  instructions  for  the 
systemts)  I  checked  above. 

Name 

TOle - 


[nstitution  /Company- 
Department 

Address 

City 


-Stale- 


-Zip- 


Phone  ( ) 

Mail  to;  University  Microfilms  Internationa! 

300  North  Zeeb  Road,  Box  91    Ann  Arbor.  Ml  48106 


$5  TALKING  DISK 

OVER  1 00  WORDS  in  vocabularies  that  you  can  put  into 
your  own  programs!  No  extra  hardware  required.  Sam- 
ple programs  include: 

•  Talking  four-function  calculator  —  choose  English, 
Spanish,  or  German. 

•  Talking    keyboard   —    letters  and    punctuation    in 
English. 

•  Demonstration  of  voice  editing. 

The  $5  Talking  Disk  is  availablefor  Commodore  64, 1 28, 
Atari  800, 800XL,  130XE,  and  Apple  11+  (64K),  lie,  and  lie. 

It  you  want  to  make  your  own  vocabularies,  in  any  lan- 
guage or  accent,  then  you  must  have  a  VOICE  MASTER 
for  processing  speech  input.  VOICE  MASTER  lets  you 
do  much  more:  YOU  CAN  RECOGNIZE  SPOKEN 
COMMANDS  and  WRITE  MUSIC  AS  YOU  HUM!  And 
affordable  too  —  under  S90  including  the  headset  and 
microphone. 

Send  $5  for  the  talking  disk.  Prepaid  orders  only. 
Includes  postage.  {$7  outside  USA,  Canada,  and  Mex- 
ico.) Information  on  VOICE  MASTER  will  accompany 
your  disk.  Or  you  can  call  or  write  for  VOICE  MASTER 
information  separately.  Please  specify  computer  make 
and  model  with  your  order. 

/Vn  cxnrac  INC 

L     I  ^  675  Conger  St.,  Dept.  C! 
VSA/^  Eugene,  OR  97402 
\C^>^    Telephone  (503)  342-1271 
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The  World  Inside  the  Computer 


Fred  D'lgnozio.  Associate  Editor 


It  Only  Takes  Two  To  Make  Music 


For  20  years  Paul  Lehrman  has 
dreamt  about  becoming  a  compos- 
er. "But,"  he  says,  "serious  com- 
posers often  end  up  starving  to 
death." 

Paul  has  a  lot  of  experience  in 
the  music  industry — as  a  musician, 
recording  engineer,  and  most  re- 
cently as  vice  president  of  South- 
worth  Systems,  the  makers  of  Total 
Music,  a  MIDI  music  program  for 
the  Apple  Macintosh.  "I'm  not  a 
serious  composer,"  he  says.  "I'm  a 
pop  guy.  But  I  want  to  help  serious 
composers  make  music." 

Paul  is  convinced  that  comput- 
ers can  help  composers.  To  prove 
this,  he  recently  did  what  no  one 
has  done  before:  He  created  an  en- 
tire album  of  music  with  a  personal 
computer.  His  album.  The  Celtic 
Macintosh,  consists  of  traditional 
and  contemporary  Irish  and  Scot- 
tish jigs,  reels,  hornpipes,  airs,  and 
laments.  It  took  him  less  than  three 
weeks,  start  to  finish,  and  cost  him 
a  little  under  $100.  (He  had  to  buy 
five  floppy  disks,  a  VHS  videotape, 
and  rent  a  digital  tape  converter.) 

Why  Irish  and  Scottish  folk 
songs?  St.  Patrick's  Day  was  com- 
ing, and  Paul's  Irish-American 
friend  Sharon  Kennedy,  a  storytell- 
er, asked  him  to  put  together 
"something  quick"  that  she  could 
play  over  the  PA  system  as  back- 
ground music  at  the  annual  St.  Pat- 
rick's Day  Concert  in  Brookline, 
Massachusetts.  She  was  so  happy 
with  the  result  that  Paul  decided  to 
make  a  whole  album  and  sell  it  at 
the  concert. 

A  Home  Studio 

Paul's  recording  studio  was  in  his 
living  room.  Each  morning  he 
would  get  up  at  10:00  a.m.,  shower, 
eat  breakfast,  walk  the  eight  steps 
to  his  studio,  and  go  to  work — in 
jeans  and  a  bathrobe.  His  instru- 
ments consisted  of  three  synthesiz- 
ers (a  Kurzweil  K250,  a  Yamaha 
DX7,  and  a  Casio  CZ-101),  a  drum 


machine  (Roland  PR-707),  a  digital 
effects  processor  (Lexicon  PCM70), 
a  keyboard  mixer,  and  the  Fat  Mac 
running  Southworth's  Total  Music 
software. 

Paul  did  not  look  especially 
historic  or  impressive  sitting  alone 
in  a  bathrobe  in  his  living  room 
typing  on  a  Mac  and  flanked  by  a 
few  keyboards.  But  looks  are  de- 
ceiving. To  really  appreciate  what 
he  has  done,  you  have  to  listen  to 
his  album.  You  hear  woodwinds, 
an  accordion,  a  hammer  dulcimer, 
guitars,  an  acoustic  piano,  penny 
whistles,  drums,  trumpets,  a  harp, 
flutes,  tympani,  and  many  other  in- 
struments— some  of  which  he  in- 
vented. And,  thanks  to  the  PCM70 
(which  doubles  as  a  reverberator), 
the  songs  sound  as  if  they  were 
played  in  all  sorts  of  places — from  a 
small,  cozy  bar  to  a  grand  concert 
hall.  I  was  totally  fooled.  It  is  a 
masterful  audio  illusion.  But  it  is 
also  fine  music. 

Using  the  Mac,  Paul  called  up 
instrument  sounds  on  each  of  the 
keyboards,  played  them  on  the 
Kurzweil  (which  acted  as  his  master 
keyboard),  and  recorded  them  as  a 
single  track  on  a  3V2-inch  floppy 
disk.  He  replayed  the  tracks,  pol- 
ished them,  then  overdubbed  new 
tracks  on  top  of  the  old.  By  layering 
the  tracks  together,  he  created  the 
illusion  of  an  entire  band  or  or- 
chestra. 

With  the  press  of  a  button,  the 
computer  played  all  the  instru- 
ments while  Paul  taped  them  on  a 
VHS  video  recorder.  To  make  the 
recording  sound  professional,  he 
used  a  Sony  PCM  (pulse  code  mod- 
ulation) converter  he  rented  for  $10 
a  day  to  convert  the  analog  sound 
signal  into  a  digital  signal.  When 
recorded  on  the  videotape,  this  dig- 
ital audio  equals  the  sound  quality 
of  a  compact  disc. 

Next  he  went  to  a  local  record 
duplication   house,   which   copied 


his  master  tape  onto  standard  audio 
cassettes — 50  at  a  time. 

Not  Mactiine  Music 

"People  expect  music  made  by  ma- 
chines to  sound  like  machine  mu- 
sic," says  Paul.  "I  made  this  album 
to  disprove  that.  I  used  the  com- 
puter to  do  the  things  it  does  well, 
and  made  it  play  the  kind  of  music  I 
wanted  to  play.  I  deliberately  left  in 
things  that  some  people  might  call 
mistakes — little  timing  things  and 
grace  notes.  I  could  have  fixed 
them,  but  I  didn't.  I  wanted  the 
music  to  sound  like  it  was  made  by 
a  human  being.  Without  that  hu- 
man element  the  music  becomes 
rhythmically  perfect  all  the  time.  It 
sounds  boring,  robotic. 

"I  wanted  to  show  that  a  com- 
poser could  set  up  everything  in  his 
living  room  and  not  spend  a  lot  of 
money.  He  can  create  and  record 
his  own  music  all  on  his  own.  A 
system  like  this  cuts  all  the  compli- 
cations and  red  tape  separadng  a 
composer  from  his  audience.  Now 
there  is  no  one  between  them. 

"When  I  was  a  kid  I  went  to  see 
Mary  Martin  do  a  concert  in  New 
York  City.  I  remember  she  sang  a 
song  called  'It  Takes  Three  to  Make 
Music' — one  to  write,  one  to  play, 
one  to  hear.  That  equation  is  chang- 
ing. Now,  in  a  very  real  sense,  the 
person  who  writes  and  the  person 
who  plays  can  be  the  same  person. 
So  it  only  takes  two  to  make  music. 
And  we're  not  talking  about  play- 
ing a  piano,  either.  We're  talking 
about  having  an  entire  orchestra  at 
your  disposal.  Any  kind  of  orches- 
tra, with  any  kind  of  instruments." 

To  learn  more  about  Paul's 
system,  write  to  Paul  D.  Lehrman, 
31  Maple  Ave.  Apt.  #1,  Cambridge, 
MA  02139.  To  get  a  tape  of  The 
Celtic  Macintosh,  send  $10.  To  learn 
more  about  Total  Music,  write 
Southworth  Music  Systems,  Inc., 
Box  275,  RD  1,  Harvard,  MA 
01451.  © 
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Computers  and  Society 


Dovid  D^  Thornburg,  Associate  bditor 


Metaphorical  Computing 


Every  time  we  use  a  computer,  we 
are  working  with  metaphors.  In 
some  cases  the  metaphor  is  obvi- 
ous, and  in  others  it  is  not.  A  game, 
for  example,  might  provide  us  with 
a  model  of  a  city  through  which  we 
have  to  navigate  without  being 
caught  by  the  bad  guys.  Rationally, 
we  know  there  is  no  city  or  bad 
guys,  but  this  metaphor  lets  us 
move  beyond  the  computer  to  the 
application  itself — the  computer  be- 
comes the  mirror  of  the  mind's  eye. 

This  aspect  of  the  computer  is 
what  makes  it  so  useful.  Metaphors 
like  desktops,  menus,  and  windows 
can  make  computing  appear  more 
like  "real"  activities.  Those  who 
prefer  command  line  interpreters  to 
desktops  are  merely  expressing  a 
preference  for  one  metaphor  over 
another.  None  of  this  matters  to  the 
machine.  As  far  as  the  computer  is 
concerned,  code  is  code  and  bytes 
are  bytes. 

High-level  computer  lan- 
guages are  programs  and  are  there- 
fore metaphors  as  well.  As  the 
noted  computer  scientist  Edsger 
Dijkstra  says  in  his  book  A  Disci- 
pline of  Programming:  "There  are 
two  machines — the  physical  ma- 
chine— the  one  that  you  pay  for, 
that  breaks  down,  that  takes  space 
on  your  desk.  Then  there  is  the 
abstract  machine — defined  by  the 
functions  the  machine  is  to  perform," 

As  programmers,  we  trust  that 
the  abstract  machine  is  implement- 
ed in  the  physical  machine.  In  fact, 
it  might  not  be.  For  example,  a  pro- 
gram could  accept  6502  machine 
language  and  convert  it  to  run  on  a 
68000  microprocessor.  From  the 
programmer's  perspective,  the 
computer  is  a  6502.  The  point  here 
is  that,  even  at  the  most  basic  level 
of  programming,  one  cannot  escape 
from  metaphors. 

Generations  Of  Languages 

If  computation  is  metaphorical  at 


the  machine  level,  it  becomes  even 
more  so  as  we  move  to  higher-level 
languages.  In  assembly  language, 
for  instance,  the  metaphor  of  the 
machine  is  often  expanded  to  in- 
clude instructions  that  the  com- 
puter cannot  execute  directly. 
Programmers  call  these  macros,  or 
macro  instructions.  A  macro  that 
simulates  a  missing  multiplication 
command  greatly  simplifies  the 
programmer's  task. 

At  the  first  two  levels  of  com- 
puter language  (machine  and  as- 
sembly), the  metaphor  pertains  to 
the  machine  itself.  At  this  level  it  is 
the  program's  purpose  to  instruct 
our  computers.  Once  we  move  to 
high-level  languages  like  BASIC, 
FORTRAN,  COBOL,  LISP,  PRO- 
LOG, Forth,  and  Smalltalk,  it  be- 
comes the  computer's  task  to 
execute  our  programs.  This  may 
seem  like  a  subtle  distinction,  but  as 
we  shall  see,  it  is  not. 

1  have  come  to  believe  that  the 
major  differences  between  various 
high-level  languages  are  not  to  be 
found  in  their  syntaxes,  grammars, 
or  vocabularies,  but  in  their  meta- 
phors. 

A  Pascal  programmer,  for  ex- 
ample, sees  a  program  as  a  collec- 
tion of  procedures,  each  of  which 
produces  some  effect.  A  LISP  pro- 
grammer sees  a  program  as  a  collec- 
tion of  functions  that  output  results 
in  much  the  same  manner  as  math- 
ematical operations.  A  PROLOG 
programmer  sees  a  program  as  a 
collection  of  assertions  and  rules 
that  the  computer  can  use  as 
needed  to  respond  to  a  query. 

Now  we  can  begin  to  see  why 
it's  so  difficult  to  write  major  appli- 
cation programs.  The  programmer 
has  the  task  of  creating  one  meta- 
phor out  of  another  one.  This  is 
why  multilingual  programmers 
often  spend  some  time  deciding 
which  language  to  use  before  writ- 
ing any  code. 


The  trick  to  making  program- 
ming easy  is  to  make  the  metaphor 
of  the  language  match  that  of  the 
application. 

Construction  Sets 

Some  languages  do  this  quite  well. 
The  ease  with  which  a  user  can 
create  new  pinball  games  with  Pin- 
ball  Construction  Set  is  a  result  of  the 
program's  use  of  the  same  meta- 
phor, whether  a  game  is  being  con- 
structed or  played. 

Other  construction  set  lan- 
guages (including  Loderunner  and 
any  good  spreadsheet  program) 
have  become  immensely  popular. 
Their  popularity  arises  from  ease  of 
use,  and  this  is  a  direct  consequence 
of  the  consistency  of  the  metaphor 
as  one  moves  across  the  boundary 
from  programming  to  executing  a 
program. 

While  construction  sets  have 
great  value,  they  also  have  a  strong 
limitation.  They  are  not  general- 
purpose  programming  tools.  One 
cannot  build  a  word  processor 
using  Pinball  Construction  Set  or  a 
music  program  with  Multiplan. 

The  closest  we've  come  to  gen- 
eral^purpose  direct-manipulation 
languages  is  with  products  like  File- 
vision,  a  Macintosh-based  visual 
database  program.  I've  used  File- 
vision  since  1984  as  a  tool  for  creat- 
ing instructional  software.  But  even 
Filevision  (which  was  never  intend- 
ed to  be  a  language)  has  its  limita- 
tions. 

The  key  to  constructing  a 
general-purpose  direct-manipula- 
tion language  is  to  find  a  "meta- 
metaphor" — a  metaphor  that 
encompasses  all  application  meta- 
phors. Does  such  a  metaphor  exist? 
This  question  is  being  asked  by 
those  of  us  who  are  exploring 
direct-manipulation  programming. 
So  far,  the  answer  is  not  clear. 

In  the  meantime,  metaphors  be 
with  you.  © 
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The  Beginners  Page 


Tom  R.  Halfhill,  Editor 


Turning  Apples  Into  Oranges 


Sometimes  it  seems  as  if  BASIC  is 
overpopulated  with  a  nearly  end- 
less collection  of  string-handling 
functions.  We've  already  looked  at 
LEFTS,  MID$,  RIGHTS,  CHR$, 
ASC,  and  LEN,  not  to  mention  op- 
erators for  adding  strings  together 
and  making  logical  comparisons. 
Yet,  we've  barely  scratched  the  sur- 
face of  what  can  be  done  with 
strings  in  BASIC.  The  reason  for  all 
these  functions  is  that  programmers 
keep  demanding  more  and  more 
flexibility  for  manipulating  text  in 
their  programs.  One  of  BASIC'S 
early  predecessors,  a  language 
called  FORTRAN,  was  very  strong 
on  mathematical  functions,  but  rath- 
er weak  when  dealing  with  strings. 
From  the  very  beginning,  BASIC 
has  sought  to  improve  in  this  area. 
Two  interesting  string  func- 
tions we  haven't  covered  so  far  are 
VAL  and  STR$.  These  two  func- 
tions, common  to  virtually  all  BA- 
SICS, are  opposites  of  each  other. 
STR$  lets  you  convert  a  number 
into  a  string,  and  VAL  lets  you  con- 
vert a  string  into  a  number.  For 
example,  look  at  this  program: 
10  DIM  A$(10):REM  This  line  for  Atari 

only 
20  A$  =  "123" 
30  PRINT  A$ 
40  A  =  VAL(AS) 
50  PRINT  A 
60  A$  =  STRS(A) 
70  PRINT  A$ 

When  you  run  this  program,  the 

result  is: 

123 
123 
123 

So  what?  you  say.  We  could  get  the 
same  result  by  deleting  lines  30-70 
and  simply  substituting  PRINT  A$: 
PRINT  A$:PRINT  A$. 

But  the  result  would  not  be  the 
same.  Although  PRINT  A$  in  line 
30  prints  the  number  123  on  the 
screen,  it's  printing  the  number  as  a 
character  string,  not  a  numeric  value. 
You  can't  tell  one  from  another 
when  they're  printed  on  the  screen. 


but  the  difference  is  important  and 
matters  very  much  to  BASIC.  If  you 
attempt  a  statement  such  as  A=A  + 
"123"  or  A$  =  A$  +  123,  BASIC  re- 
ports some  sort  of  type-mismatch 
error.  Character  strings  and  numer- 
ic values  just  don't  mix. 

That's  why  there's  VAL  and 
STR$.  As  shown  in  line  40,  A  = 
VAL(A$)  takes  the  number  "123" 
stored  as  a  character  string  in  A$, 
converts  it  into  the  corresponding 
numeric  value  123,  and  stores  it  in 
the  numeric  variable  A.  Converse- 
ly, the  statement  A$  =  STR${A)  in 
line  60  takes  the  number  stored  as 
numeric  value  123  in  A,  converts  it 
into  the  character  string  "123,"  and 
stores  it  in  the  string  variable  A$.  In 
short,  VAL  and  STR$  let  you  turn 
apples  into  oranges  and  back  again. 

Easier  Input 

An  interesting  trick,  you  say,  but 
what's  the  purpose?  True,  VAL  and 
STR$  aren't  exactly  the  most  heavi- 
ly used  functions  in  the  BASIC  lan- 
guage. Instead,  they're  like  Allen 
wrenches — once  a  year  when  you 
need  them,  nothing  else  will  do. 

For  instance,  recently  I  wrote  a 
short  program  to  experiment  with  a 
new  computer's  sound  capabilities. 
The  program  asks  the  user  to  enter 
a  phone  number,  then  dials  the 
number  by  playing  Touch-Tones 
through  the  monitor  speaker.  To 
determine  which  Touch-Tone  fre- 
quencies to  play,  I  needed  to  extract 
each  digit  in  the  phone  number  as 
numeric  data.  But  to  make  it  as  easy 
as  possible  for  the  user  to  enter  the 
phone  number,  I  wanted  the  pro- 
gram to  accept  the  keyboard  input 
as  a  character  string.  That  way,  peo- 
ple can  type  in  the  phone  number 
any  way  they  want:  (919)  555- 
1212,  or  919-555-1212,  or  919  555 
1212,  etc,  A  statement  such  as  IN- 
PUT A$  accepts  all  those  variations. 
But  if  the  program  used  INPUT  A, 
the  phone  number  would  have  to 
be  entered  as  9195551212,  or  an 


error  would  result. 

So,  VAL  comes  to  the  rescue. 
Once  the  phone  number  is  entered 
in  A$,  the  program  loops  through 
the  string,  converting  digits  from  0 
to  9  into  numbers  with  VAL.  The 
numbers  are  then  passed  along  to 
SOUND  statements  which  play  the 
tones.  Spaces,  hyphens,  parenthe- 
ses, and  other  characters  are  ig- 
nored. Here's  a  simplified  version 
of  the  routine: 

100  FOR  N  =  l  TO  LEN(A$» 

110  IF  ASC(MID$(A$,N,1))<48  THEN  150 

120  IF  ASC(MID$(AS,N,1))>57  THEN  150 

130  A  =  VAL(MID$(A$,N,1)) 

140  REM  SOUND  slatements  to  play 

Touch-Tones  here... 
150  NEXT  N 

This  routine  conveniently  dem- 
onstrates several  string-handling 
techniques  we've  covered  in  the 
past  few  columns.  Line  100  sets  up 
a  FOR-NEXT  loop  by  using  the 
LEN  function  to  measure  the  length 
of  A$;  this  determines  how  many 
times  the  loop  repeats  (one  loop  for 
each  character  in  A$),  Lines  110 
and  120  use  the  MID$  function  to 
examine  one  character  at  a  time  in 
A$;  if  the  ASC  function  discovers 
that  the  character  is  less  than  the 
ASCII  value  of  48  (the  number  0)  or 
greater  than  the  ASCII  value  of  57 
(the  number  9),  the  program  skips 
to  line  150  and  makes  another  pass 
through  the  loop. 

If  a  character  in  A$  is  a  number 
0-9,  the  program  falls  through  to 
line  130.  Here,  the  VAL  function 
converts  the  character  into  a  nu- 
meric value  and  stores  it  in  A.  Line 
140  is  where  the  SOUND  state- 
ments to  play  the  tones  would  be 
inserted.  Line  150  then  loops  back 
to  examine  another  character  in  A$, 

You  can  adapt  this  trick  to 
many  of  your  own  programs.  When- 
ever you'd  like  to  accept  keyboard 
input  as  a  string  for  maximum  flexi- 
bility, just  convert  the  string  with 
VAL  to  the  numeric  input  you're 
really  looking  for.  @ 
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Telecomputing  Today 


Arlan  R,  Levitan 


Electronic  Bulletin  Boards:  A  Retrospective 


Bulletin  boards  have  been  with  us 
in  one  form  or  another  for  hun- 
dreds of  years  and  will  likely  stay 
with  us  well  into  the  future.  Why? 
What's  so  special  about  bulletin 
boards,  electronic  or  otherwise? 

It's  difficult  to  pinpoint  when 
the  first  bulletin  board  appeared. 
Perhaps  cave  paintings  were  primi- 
tive bulletin  boards.  In  the  modem 
sense  of  a  community  communica- 
tions media,  the  earliest  bulletin 
board  may  have  been  the  medieval 
practice  of  posting  royal  proclama- 
tions in  the  center  of  commerce,  the 
town  square. 

The  traditional  bulletin  board, 
with  a  wide  variety  of  messages 
tacked  to  a  freely  accessible  surface, 
abounds  in  our  supermarkets,  fac- 
tories, offices,  schools,  laundro- 
mats, community  centers,  and  city 
halls.  These  bulletin  boards  are 
more  than  just  a  way  to  give  away 
kittens  or  sell  tires.  They  make  it 
possible  for  people  vrith  a  message 
to  reach  out  to  the  community  as  a 
whole. 

Electronic  Thumbtacks 

The  thousands  of  computer-based 
bulletin  board  systems  (BBSs) 
which  are  online  today  offer  the 
traditional  message  posting  and  a 
great  deal  more.  Imagine  trying  to 
maintain  a  series  of  communica- 
tions with  other  people  using  a  reg- 
ular bulletin  board  at  a  super- 
market. Driving  to  the  store  every 
time  you  want  to  leave  or  read  a 
message  makes  extended  commu- 
nication via  corkboard  and  note- 
card  extremely  inconvenient.  Even 
if  you  make  the  trip  regularly,  a  less 
than  careful  search  of  the  posted 
messages  may  miss  the  very  reply 
that  was  sought. 

The  fact  that  a  BBS  can  be  ac- 
cessed remotely,  without  leaving 
one's  home,  makes  an  ongoing  dia- 
log between  many  parties  a  simple 
matter.  A  computer  dedicated  to 
running  the  BBS  manages  the  mes- 


sages; in  addition  to  numbering  and 
indexing  the  messages,  it  also  auto- 
matically notifies  its  many  users  of 
messages  intended  specifically  for 
them. 

The  first  BBS  was  bom  of  ne- 
cessity in  1978.  Microcomputers 
were  just  getting  off  the  ground, 
and  the  first  micronauts  were  few 
and  far  between.  The  four  major 
enclaves  of  personal  computing 
were  located  in  California,  Illinois, 
Texas,  and  Massachusetts.  Al- 
though the  computer  clubs  in  these 
areas  exchanged  newsletters  regu- 
larly, there  was  a  decided  lack  of 
spontaneous  interaction  between 
the  major  groups  and  even  within 
the  groups  themselves. 

Ward  Christensen  and  Randy 
Suess,  both  members  of  the  Chica- 
go Area  Computer  Hobbyist  Ex- 
change (CACHE),  came  up  with  the 
answer.  They  developed  a  program 
to  run  on  a  computer  that  was 
equipped  with  a  modem  hooked  up 
to  a  phone  line.  The  program 
turned  the  computer  into  an  auto- 
mated message  system.  Callers  to 
the  Computerized  Bulletin  Board 
System  (or  CBBS,  as  its  originators 
referred  to  it)  could  leave  and  re- 
trieve messages  at  any  time  of  day. 
The  CBBS  was  a  huge  success,  and 
other  clubs  began  pressing  personal 
computers  into  service  as  bulletin 
boards. 

Ttie  Spread  Of  BBSs 

CBBS  was  not  a  universal  program. 
It  was  written  for  computers  which 
used  the  CP/M  operating  system 
(Control  Program  for  Microcom- 
puters). Christensen  and  Suess 
wrote  a  widely  publicized  article 
describing  the  program  and  the 
structure  of  their  system  as  it  ap- 
peared to  the  person  calling  into  the 
CBBS.  Realizing  that  similar  pro- 
grams would  be  written  for  other 
types  of  computers,  they  proposed 
that  the  functions  and  commands 
used  by  the  CBBS  be  standardized 


for  all  BBSs.  This  would  make  it 
unnecessary  for  people  to  learn  a 
whole  new  set  of  commands  for 
each  type  of  board  they  accessed. 

Sure  enough,  BBS  software  for 
other  popular  systems  soon  fol- 
lowed, Craig  Vaughn  and  Bill  Blue 
created  a  program  for  Apple  II  com- 
puters called  the  People's  Message 
System  (PMS),  Close  on  their  heels 
was  Bill  Abney,  who  produced  Fo- 
rum 80  for  the  Radio  Shack  TRS-80, 
and  Tom  Giese,  father  of  the  Atari 
Message  &  Information  System 
(AMIS)  for  the  Atari  400  and  800. 
Late  in  1982,  the  first  version  of  the 
Remote  Bulletin  Board  System 
(RBBS)  for  the  IBM  was  written  by 
D,  Thomas  Mack  and  Jon  Martin. 

Aside  from  a  message  ex- 
change, most  BBSs  offer  a  selection 
of  public  domain  programs  and 
other  types  of  files.  By  using  termi- 
nal software  capable  of  receiving 
files  via  modem  from  a  remote  com- 
puter, callers  can  transfer  (down- 
load) copies  of  these  files  from  the 
BBS  to  their  own  machines. 

Most  of  the  free  software  avail- 
able from  BBSs  consists  of  pro- 
grams that  computer  enthusiasts 
like  yourself  have  written  and  vdsh 
to  share  with  other  people.  A  pleth- 
ora of  games,  word  processors, 
spreadsheets,  database  managers, 
and  terminal  programs  are  avail- 
able for  the  price  of  a  phone  call. 
Whatever  your  needs,  you  can  ac- 
quire a  respectable  library  of  al- 
most-free software  that  will  handle 
all  but  the  most  demanding  tasks. 

Next  Month:  Current  Trends  in 
Bulletin  Board  Systems.  @ 
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INSIGHT:  Atari 


Bill  Wilkinson 


Tried  And  True  Tools 


In  keeping  with  computers  pro- 
gramming languages  theme  for  this 
month,  I'd  like  to  share  some 
thoughts  about  programming  in 
general  and  better  use  of  the  avail- 
able languages  in  particular.  I  have 
long  contended  that,  for  most  pur- 
poses, owners  of  Atari  400/800, 
XL,  and  XE  computers  have  all  the 
languages  they  need.  You  won't  do 
parallel  array  processing  with  a 
6502,  no  matter  what  language  you 
use,  but  you  can  balance  your 
checkbook,  keep  track  of  your  mail- 
ing list,  access  online  services  via 
modem,  write  a  book  or  two,  and 
(of  course)  play  some  games.  All  of 
those  applications  and  many  more 
have  been  written  with  languages 
now  available  for  the  eight-bit  Atari 
computers.  What  more  can  you  ask 
for? 

In  a  previous  column  I  said  it 
would  be  hard  for  most  users  to 
justify  trading  up  to  an  ST,  an 
Amiga,  or  whatever.  If  anything,  I 
feel  more  strongly  about  that  now,  I 
still  write  this  column  using  a  good 
old  Atari  1200XL  (I  like  its  key- 
board best)  and  an  Atari  825  printer 
(ancient  history).  Sometimes  I  wish 
for  an  80-column  screen  or  a  hard 
disk  drive — keeping  track  of  200 
floppies  is  not  my  idea  of  fun — but  I 
can't  justify  the  expense  for  the  ex- 
tra convenience. 

The  same  is  true  when  it  comes 
to  programming  languages.  Admit- 
tedly, I'm  a  language  junkie.  I  love 
learning  new  languages  and/or 
tricks  with  old  languages.  So  it 
would  seem  that  the  ST  would  be  a 
dream  machine  for  me.  Despite  its 
youth,  the  number  of  languages 
either  available  or  coming  soon  is 
phenomenal:  several  varieties  of 
BASIC,  Logo,  Pascal,  C,  LISP, 
Modula-2,  COBOL,  FORTRAN, 
Prolog,  Forth,  and  68000  machine 
language.  There  are  probably  oth- 
ers, too. 


Old  Machines, 
New  Projects 

But  for  owners  of  eight-bit  Ataris, 
the  situation  is  far  from  bleak. 
Though  some  of  the  language  im- 
plementations are  not  as  rich  as 
those  on  the  ST,  we  can  enjoy  Pas- 
cal, C,  Logo,  Action!,  Forth,  PILOT, 
6502  machine  language,  and  some 
extraordinarily  easy-to-use 
BASICS, 

Even  though  I've  been  using 
Ataris  for  six  years  now,  I  still  see 
some  interesting  projects  to  do — 
projects  that  I've  never  done  or 
which  I  think  can  be  done  better.  A 
few  examples:  How  about  a  termi- 
nal program  written  in  Action!  that 
is  designed  to  work  well  with  Com- 
puServe's conference  mode?  Or  a 
GEM-like  interface  for  DOS?  Or  a 
combined  spreadsheet/database 
written  in  BASIC  XE  and  comment- 
ed liberally  so  that  even  beginners 
can  see  the  methods  used?  I  know 
I'll  never  do  all  of  these,  but  they 
are  challenges  I'd  /f/ce  to  tackle. 

Rethinking  The  Problem 

Moving  to  new  languages  on  new 
machines  is  not  always  an  advan- 
tage. For  instance,  in  ST  BASIC, 
strings  cannot  exceed  255  charac- 
ters in  length.  Atari  BASIC  strings 
can  be  up  to  32,767  characters  long, 
if  you  have  the  memory  available. 
(Yes,  ST  BASIC  allows  string  ar- 
rays, but  so  do  BASIC  XL,  BASIC 
XE,  and  Atari  Microsoft  BASIC.) 
There  are  many  other  examples. 

Another  factor  is  that  the  speed 
and  power  of  the  newer  machines  is 
of  little  advantage  for  some  appHca- 
tions.  Other  than  missing  an  80- 
column  screen,  I  can  use 
CompuServe  or  various  bulletin 
boards  just  as  well  with  my  $100 
computer  as  I  can  with  the  compa- 
ny's $1,000  machine.  Besides,  the 
modem  for  the  $100  computer  is 
cheaper.  And  by  the  time  you  read 
this.  Atari  may  have  released  its  80- 


column  adapter  for  the  eight-bit 
line. 

Suppose  you're  writing  a  pro- 
gram that  does  need  more  speed, 
however.  What  can  you  do  other 
than  buy  a  newer,  faster  computer? 
Well,  you  could  buy  a  better,  faster 
language.  That's  a  lot  cheaper  than 
buying  a  new  computer — for  which 
you  still  might  need  an  extra  lan- 
guage or  two.  On  the  other  hand, 
maybe  you  don't  have  to  buy  any- 
thing at  all;  maybe  you  just  need  to 
rethink  your  solution  to  the  prob- 
lem. Let  me  show  you  what  I  mean. 

Program  1  is  very  similar  to 
one  which  I  found  in  a  recent  user 
group  newsletter.  The  author  was 
responding  to  a  member's  inquiry 
about  writing  a  routine  to  shuffle  a 
deck  of  cards.  As  you  know,  when 
BASIC  gives  you  a  random  num- 
ber, there's  no  guarantee  it  won't 
give  you  that  same  random  number 
twice,  perhaps  even  several  times. 
For  a  quick  example,  type  the  fol- 
lowing line  and  press  RETURN: 

FOR  1  =  0  TO  9;PRINT  INTdO'RND 
(0»:NEXT  I 

This  asks  for  ten  random  num- 
bers in  the  range  0  to  9.  Did  you 
actually  get  ten  different  numbers? 
The  odds  are  very  much  against  it. 

The  Super  Shuffle 

Program  1  demonstrates  this  prob- 
lem by  dealing  out  an  entire  deck  of 
52  cards.  As  each  card  is  dealt  (by 
suit  S  and  rank  R,  line  210),  its  spot 
in  the  C  (card)  array  is  marked. 
Then,  if  the  random  number  gener- 
ator picks  that  card  again,  the  pick 
is  ignored  (line  230).  The  only 
things  I  added  to  the  original  rou- 
tine are  the  counters  (C  and  T) 
which  count  how  many  picks  it 
takes  to  get  each  card  and  the  entire 
deck.  Can  you  guess  how  many 
picks  it  takes  to  get  the  entire  deck? 
In  50  tests,  it  took  a  minimum  of 
128  picks  and  a  maximum  of  457, 
with  the  average  around  220.  The 
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result,  as  you'll  see  if  you  run  the 
program,  is  that  it  can  take  as  long 
as  five  or  six  seconds  to  pick  a  card. 

Now  look  at  Program  1,  which 
does  exactly  the  same  job  but  never 
takes  more  than  one  pick  to  get  the 
next  card  in  the  deck.  It  works  by 
using  a  single  string  (CARDS)  to 
represent  the  entire  deck.  When  it 
gets  a  random  number  from  1  to  52, 
the  program  removes  the  corre- 
sponding "card"  from  the  "deck" 
(lines  400  and  410).  The  next  time  it 
picks  a  card,  it  gets  c-.  random  num- 
ber from  1  to  51.  Each  time  the 
computer  gets  a  card,  the  range  of 
random  numbers  gets  smaller.  Sim- 
ple. And  it  works  by  taking  advan- 
tage of  the  string  operations  in  Atari 
BASIC. 

The  point  of  this  exercise  is  to 
show  that  sometimes  the  best  way 
to  fix  a  slow  or  inefficient  program 
is  to  rethink  it  and  then  rewrite  it. 
I'd  be  willing  to  bet  that  Program  2 
on  an  eight-bit  Atari  runs  faster 
than  Program  1  on  an  Atari  ST.  If 
you  have  access  to  both  machines, 
you  might  want  to  try  it.  And  try 
improving  your  own  programs. 
(Even  while  writing  this  column,  I 
found  a  way  to  improve  Program  2 
even  more.  Can  you  find  it?) 

One  last  comment:  Notice  the 
readability  of  the  two  programs. 
Which  one  is  cryptic  and  which  one 
almost  explains  itself?  Meaningful 
variable  names  can  add  a  great  deal 
of  value  to  any  program. 


For  Instructions  on  entering  these  listings, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
[n  Programs"  in  ttiis  Issue  of  compute!. 

Program  1:  Slow  Shuffle 


HI10fl     DIM     C(4,13) 

OP110     DIM    R»(I3)  i  R»="A23456 

789TJQK" 
16  120     DIM    S*  C4!  :  S»="  £;  >  C,  > 

t.  ><:p>  " 

(H  130    FOR    S-1     TD    4;F0R    R=l 

TO     13:C(S,R)-IB 
PC  140    NEXT    RiNEXT    S 
CE  200    FOR     I-l     TO    32:C-0 
IIC210    9-INT  (RND  (0)  »4)  ■t-l5R=J 

NT(RND («) *13) +1 
LD  220     C-C+1 

PF  230     IF    C(S,R)<>0    THEN    210 
8J  240    C(8,R)-1 
OK  230    T-T  +  C 
LB  260    PRINT     I  j  !  POKE    B3,15-L 

EN(9TR*(C) ) iPRlNT    C; " 
PICK(S)     TO    0ET    ";R»( 

R,R) ; "  DF  "|S«(S,S) 
CD  270  NEXT  I 
PJ  280  PRINT  n  PRINT  "TOTAL  P 

ICKSl   "|T 


Program  2:  Fast  Shuffle 


ED  100 

GC  1  10 
BA  120 
Cft  130 


6B  140 
PH  150 
EE  160 

EI  170 
GN  200 

(IB  210 
DG  220 

DD  230 
IN  240 
nP  300 

AN  310 
HC  320 

LP  330 

n  340 
LB  350 
IF  360 

HD  370 


LK  380 
Di;  390 

m  4  00 

E«  410 
NF  420 

n  430 


REM  ===  SET  UP  VARIAB 

LESjETC.  === 

DIM  CfiRD»(S2i 

DIM  SUITS*(B*4) 

SUITS*="SPADES   HEftRT 

B   CLUBSC3  SPfiCES>DIA 

MDNDS" 

DIM  SUIT* (8) 

DIM  RANKBS(4«5> 

RAN(<SS="ACE   JACK  KIN 

B  QUEEN" 

DIM  RANK* (5) 

REM  ===  SET  UP  THE  DE 

CK  -  =  - 

FOR  CARD=1  TO  52 

CARD* (CARD) =CHR» (CARD 

) 

NEXT  CARD 

DECKSIZE=52 

REM  ===  DEAL  S2  CARDS 


FOR  C 
PICK  = 
<0)  )  + 
PICKE 
)  )-l 
SUIT  = 
RANK 
SUIT* 
,  SUIT 
IF  RA 
RANKS 
S+5) 
IF  RA 
"STR* 
PRINT 

*;"  D 
IF  PI 

CARD 
CK+1  ) 
IF  PI 

CARD 
DECKS 
NEXT 


ARD=1  TO  52 
INTCDECKSIZEtRND 
1 
D=ASC<CARD*(PICK 

INT<PICKED/13) 

PICKED-13*3UIT 
=SUITS*<SUIT»8+1 

t8+a> 

NK<4  THEN  RANK*= 
*(RANK«5+1 ,RANK« 

NK>=4  THEN  RANK* 
(RANK-2) 

"Picked:  " 5  RANK 
F  "jSUlT* 
CK<DECKSIZE  THEN 
* tPICK>=CARD* (PI 

CK-DECKSIZE  THEN 
* (PICK) ="" 
IZE=DECKSIZE-1 
CARD  tn 
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Odd  Facets  Of  GEM 


This  month  we're  going  to  explore  a 
handful  of  quirks  in  the  GEM  desk- 
top: things  you  can  do  to  make  your 
system  more  useful... things  you  can 
do  to  make  your  system  crash! 
Since  I'm  a  natural-bom  pessimist, 
let's  start  with  the  crash. 

The  bug  I'm  about  to  demon- 
strate infests  the  ROM  (Read  Only 
Memory)  version  of  the  TOS  oper- 
ating system.  Even  so,  if  you  don't 
already  have  the  TOS  ROMs,  get 
them  today.  The  difference  in  over- 
all system  performance  and  capa- 
bility is  only  a  little  short  of  great. 

To  see  this  bug,  simply  boot 
your  system  and  bring  up  the  Con- 
trol Panel.  Select  either  the  date  or 
time  field.  Then  type  an  underline 
character  (SHIFT-hyphen).  Watch 
your  system  bomb.  The  only  recov- 
ery is  to  press  the  reset  button  or 
turn  off  the  power. 

Problem:  The  Control  Panel  is 
a  form  of  dialog  box,  and  it  uses 
what  are  known  as  editable  text 
fields  to  display  and  let  you  modify 
the  date  and  time.  An  editable  text 
field  is  designed  to  restrict  the  user 
to  typing  certain  characters.  For  ex- 
ample, the  date  and  time  fields  of 
the  Control  Panel  are  editable  fields 
which  allow  only  numbers  to  be 
typed.  Unfortunately,  somehow  a 
bug  crept  into  the  ROM-based 
TOS.  Anytime  you  edit  a  numeric- 
only  field,  typing  the  underline 
causes  something  nasty  to  occur. 
Editable  fields  for  filenames  have  a 
similar,  though  usually  nonfatal, 
problem. 

Solution:  A  GEM  application 
program  that  needs  to  accept  nu- 
meric-only input  from  the  user  has 
two  choices:  (1)  Use  an  editable 
field  which  allows  aity  character 
and  then  validate  the  user's  input 
after  the  dialog  box  returns;  (2)  Re- 
trieve keystrokes  one  at  a  time, 
checking  them  on  the  fly,  and  print 
only  the  valid  ones  on  the  screen. 
The  former  solution  is  kind  of  ugly 


because  the  user  doesn't  get  imme- 
diate response  to  incorrect  input. 
The  latter  solution  is  a  lot  of  work. 
Take  your  pick. 

Modifying  DESKTOP.INF 

Many  of  you  already  know  how  to 
customize  the  GEM  desktop  so 
your  preferences  appear  automati- 
cally when  you  boot  up  the  ST. 
When  you  select  the  Save  Desktop 
item  under  the  Options  menu,  GEM 
saves  a  file  to  the  disk  in  drive  A 
called  DESKTOP.INF  which  stores 
these  preferences.  You  can  rear- 
range the  icons  on  the  screen, 
change  screen  colors,  resize  the 
windows,  and  so  on,  and  GEM  re- 
members it  all  for  you. 

DESKTOP.INF  is  an  ordinary 
ASCII  file,  so  it  can  be  modified 
with  most  text  editors  and  word 
processors.  This  lets  you  personal- 
ize GEM  even  more.  (See  "ST  Hints 
&  Tips,"  COMPUTE!,  June  1986.) 

The  first  thing  we'll  do  is  the 
easiest.  Using  a  text  editor  or  word 
processor  that  handles  ASCII  files, 
load  and  examine  DESKTOP.INF. 
You  should  see  one  or  two  lines 
which  contain  the  words  FLOPPY 
DISK  (among  other  things).  These 
are  the  labels  which  appear  be- 
neath the  disk  icons.  1  usually  re- 
name the  labels  —Top— Disk—  and 
Bottom — Disk.  (I've  used  dashes 
here  to  show  where  I  typed  a 
space — magazine  typesetting  some- 
times makes  it  hard  to  indicate 
spaces.) 

Save  the  modified  file  back  on 
disk  in  ASCII  format.  The  next  time 
you  boot  from  that  disk,  the  names 
should  appear  as  you  have  modi- 
fied them.  Just  for  fun,  sometimes  I 
change  the  name  of  the  trash  can  to 
Junk!  or  Garbage  or  something 
equally  silly. 

Rearranging  Files 

There  are  even  more  interesting 
things  you  can  do  with  DESK- 
TOP.INF. If,  like  me,  you  have  a 


disk  or  subdirectory  in  which  you 
do  most  of  your  work,  you'll  soon 
find  that  you  can't  see  all  of  the  file- 
names or  icons  on  the  screen  at 
once.  Although  it's  a  minor  nui- 
sance, it  always  seems  that  the  files 
(or,  more  likely,  programs)  which  I 
want  the  most  are  always  off  the 
screen.  How  can  we  force  them 
back  on  the  screen?  Preferably  in 
the  upper-left  position? 

One  solution,  since  the  default 
display  mode  under  the  Show  menu 
is  Sort  by  Name,  is  to  name  your 
favorite  files  AARDVARK.PRG  or 
AAABASIC.PRG,  But  that's  kind  of 
messy.  A  better  method  might  be  to 
choose  Sort  by  Date  if  you  could 
change  the  file's  creation  date.  But  1 
think  Mark  Rose  (of  Optimized 
Systems  Software)  has  hit  upon  the 
best  scheme. 

First,  he  chooses  Sort  by  Type. 
Second,  he  renames  his  most-used 
programs  so  they  have  no  type 
(filename  extension)  at  all.  Third, 
he  loads  DESKTOP.INF  and  adds  a 
line  or  so.  To  figure  out  exactly 
what  to  add,  look  for  a  line  in 
DESKTOP.INF  similar  to  this: 

#G  03  FF  *.PRG@  @ 

This  line  tells  the  desktop  that 
all  files  which  match  the  *.PRG 
specifier  are  GEM  (G)  program 
files.  Now,  let's  say  the  program 
you  want  to  appear  at  the  top-left  of 
the  screen  was  called  PASCAL.PRG 
and  has  been  renamed  to  simply 
PASCAL.  You  would  add  this  line 
to  the  end  of  the  DESKTOP.INF 
file; 
#G  03  FF  PASCAL.@  @ 

This  tells  GEM  that  PASCAL  is 
actually  a  GEM-based  program. 
Neat,  huh?  What's  more,  you  can 
do  this  for  several  files.  However,  I 
do  not  recommend  using  the  *. 
wildcard  in  such  a  line — general 
untyped  files  end  up  looking  like 
programs,  a  dangerous  practice.  © 
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Programming  the  Tl 


C,  Regena 


A  Beginning  Reading  Program 


When  my  youngest  son  was  learn- 
ing to  read,  I  wrote  lists  of  words  for 
him  to  practice  with.  The  word  lists 
used  a  certain  word  ending  coupled 
with  various  beginning  letters — 
such  as  AT,  BAT,  CAT,  FAT,  HAT, 
MAT,  PAT,  RAT,  SAT,  TAT,  VAT, 
and  THAT.  After  I  wrote  the  same 
list  several  times,  I  realized  this  was 
another  idea  for  a  computer 
application. 

Not  only  can  the  TI-99/4A 
print  the  words  nicely  on  the 
screen,  but  with  the  TI  Speech  Syn- 
thesizer it  can  also  speak  the  words 
aloud.  This  month's  example  pro- 
gram, "Reading  Practice,"  takes  ad- 
vantage of  this  feature.  Therefore,  it 
requires  both  the  TI  Speech  Syn- 
thesizer and  the  Terminal  Emulator 
2  command  module.  Insert  the 
module  and  select  1  for  TI  BASIC  to 
gain  access  to  speech. 

Reading  Practice 

Notice  line  154  in  the  program  list- 
ing below.  This  OPENs  the  channel 
for  speech,  so  any  subsequent 
PRINT  #1  statement  will  speak  the 
word.  The  words  I  selected  for  ex- 
amples are  all  pronounced  correctly 
by  the  speech  synthesizer  as  they 
are  spelled.  If  you  add  words,  check 
their  pronunciation;  you  may  need 
to  add  a  routine  so  the  word  is 
pronounced  correctly. 

If  you  want  to  run  this  program 
without  speech,  omit  all  statements 
that  refer  to  file  1  or  insert  a  REM  in 
front  of  each  of  these  commands. 
Another  alternative  is  to  make 
speech  an  option;  insert  IF-THEN 
statements  before  the  speech 
commands. 

Due  to  space  limitations,  I  had 
to  keep  Reading  Practice  rather 
short.  Feel  free  to  add  graphics, 
sound,  and  additional  word  lists.  I 
included  just  a  few  for  examples. 
You  could  also  modify  the  program 
to  offer  the  student  various  group- 
ings of  words. 

When  you  run  Reading  Prac- 


tice, you'll  see  a  word  ending  in 
lowercase  letters.  To  hear  the  word 
pronounced  aloud,  press  the  space 
bar.  To  go  to  the  next  word,  press 
ENTER.  The  screen  clears  and 
you'll  see  a  word  with  a  beginning 
letter  and  that  word  ending. 

The  words  are  in  the  DATA 
statements  starting  at  line  198.  First 
there  is  a  word  ending,  then  all  the 
beginning  letters  that  go  with  the 
word  ending  and  create  real  words, 
ZZZ  indicates  no  more  beginning 
letters  for  that  ending.  At  the  end  of 
all  the  lists,  @@@  indicates  the 
end  of  data. 

Lines  126-146  redefine  charac- 
ters to  draw  larger  lowercase  let- 
ters. Be  careful  typing  the  DATA 
statements;  they  contain  the  char- 
acter definitions.  If  you  have  my 
program  for  lowercase  letters  (COM- 
PUTE!, August  1983),  you  can  take  a 
shortcut.  First,  load  that  program 
and  delete  ail  the  PRINT  state- 
ments. Type  RES  126,2  to  renum- 
ber the  lines.  Then  add  the  rest  of 
the  Reading  Practice  program. 

Lines  20-110  contain  subrou- 
tines to  draw  the  26  letters  of  the 
alphabet.  The  variable  R  is  the  main 
row  number  and  C  is  the  column 
number.  If  a  lowercase  letter  has  an 
ascender  or  descender,  more  than 
one  character  is  required  to  draw 
the  letter.  Line  174  goes  to  the 
proper  subroutine  for  each  letter  in 
the  word.  Since  there  are  26  possi- 
ble letters,  I  needed  low  line  num- 
bers to  use  a  single  ON-GOSUB 
statement  (otherwise  more  complex 
logic  and  several  ON-GOSUB 
statements  would  be  required). 
Therefore,  the  subroutines  are  near 
the  beginning  of  the  program,  and 
the  program  starts  with  line  2  and 
increments  by  2.  To  type  in  this 
program  using  the  automatic  num- 
bering feature,  use  NUM  2,2. 

TI  BASIC  String-Handling 

Reading  Practice  uses  several  string 
functions.  It  reads  the  letters  from 


the  DATA  statements  into  X$  for 
the  word  ending  and  B$  for  the 
beginning  letters.  W$  holds  the 
word  to  be  printed  and  read. 
LEN(W$)  returns  the  length  of  the 
word  (or  word  ending).  Lines 
170-178  contain  a  FOR-NEXT  loop 
that  executes  for  each  letter  of  the 
word.  SEG$  gets  one  character  at  a 
time  from  the  word,  and  ASC  re- 
turns the  ASCII  value  of  that  letter. 
In  TI  BASIC,  the  ampersand  sym- 
bol (&)  is  used  to  combine  strings. 
(See  "The  Beginner's  Page,"  June 
1986.) 

Line  194  combines  the  begin- 
ning letter  B$  with  the  word  ending 
X$  to  form  the  word  W$.  Line  186 
adds  a  period  to  the  word  to  change 
its  inflection  for  the  speech  synthe- 
sizer. You  may  prefer  to  simply  use 
W$. 

Versions  of  BASIC  on  other 
computers  generally  use  the  string 
functions  RIGHTS,  LEFT$,  and 
MID$  for  extracting  sections  of 
strings.  The  equivalent  in  TI  BASIC 
is  SEG$.  SEG$(W$,A,B)  looks  at 
the  string  W$,  starts  with  character 
number  A,  and  returns  B  number  of 
characters.  For  example,  let's  as- 
sume that  W$  =  "RICHARD".  The 
Microsoft  BASIC  statement 
LEFT$(W$,4)  is  translated  into  TI 
BASIC  as  SEG$(W$,1,4),  which 
yields  RICH.  The  statement 
RIGHT$(W$,4)  is  translated  as 
SEG$(W$,LEN(W$)-4  +  l,4), 
which  yields  HARD,  And  the  state- 
ment MID$(W$,3,2)  is  translated  as 
SEG$(W$,3,2),  which  yields  CH. 
(See  "The  Beginner's  Page,"  April 
1986.) 

In  the  Reading  Practice  pro- 
gram, SEG$(W$,P,1)  is  in  a  loop 
where  P  starts  at  1  and  goes  to  L, 
which  is  the  number  of  characters 
in  the  word.  This  function,  then, 
gets  one  letter  at  a  time,  in  order, 
from  the  word.  The  variable  A  is 
the  ASCII  value  of  that  character 
minus  64  to  yield  numbers  from  1 
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to  26  for  the  relative  letter.  Line  174 
then  uses  ON-GOSUB  to  go  to  the 
proper  subroutine  to  draw  the  cor- 
responding lowercase  letter. 

If  you  want  to  save  typing  ef- 
fort, you  may  get  a  copy  of  this 
program  by  sending  a  blank  cas- 
sette or  disk,  a  stamped,  self-ad- 
dressed mailer,  and  $3  to: 

C.  Regena 
P.O.  Box  1502 
Cedar  City,  UT  84720 

Be  sure  to  specify  the  title  "Reading 
Practice."  This  program  is  available 
for  the  TI  computer  only. 

Reading  Practice 

2  REH  READING 

4  REM  REQUIRES  TERMINAL 

6  REM      EMULATOR  2 

B     REM  REQUIRES  SPEECH 

10  REM      SYNTHESIZER 

12  REM   *»  WITHOUT  SPEECH-- 

14  REM    REMOVE  STATEMENTS 

16  REM    CONTAINING  "  tt  1  " 

IB  GOTO  1 12 

20  CALL  HCHAR  CR,  C,  A  +  '?6) 

22  RETURN 

24  CALL  HCHAR (R-1 , C, 104) 

2h  GOTO  20 

28  CALL  HCHAR (R-i , C, 100) 

3 


b     GOTO  20 

8  CALL  HCHAR (R-i , C, 1 
-,0  CALL  HCHAR  (R,  C,  97) 
32  RETURN 

34  CALL  HCHAR (R-1 ,C, 102) 
36  CALL  HCHAR (R,C, 103) 
38  RETURN 

40  CALL  HCHAR (R,  C,  97) 
42  CALL  HCHAR (R+1 , C, 103) 
44  RETURN 

46  CALL  HCHAR (R-1  , C,  104) 
48  CALL  HCHAR (R, C, 110) 
50  RETURN 

52  CALL  HCHAR (R-1 , C, 105) 
54  CALL  HCHAR (R, C, 10B> 
56  RETURN 
58  GDSUB  52 

60  CALL  HCHAR (R+1 , C, 106) 
62  RETURN 

64  CALL  HCHAR (R-1 , C, 104) 
66  GOTO  20 

65  CALL  VCHAR(R-1,C, 108,2) 
70  RETURN 

72  CALL  HCHAR (R, C, 1 10) 

74  C=C+1 

76  CALL  HCHAR (R, C, 109) 

78  RETURN 

B0  CALL  HCHAR (R, C, 98) 

82  CALL  HCHAR (R+1 , C, 112) 

64  RETURN 

86  CALL  HCHAR (R, C, 97 ) 

88  CALL  HCHAR (R+1 ,C, 1 13) 

90     RETURN 

92  CALL  HCHAR (R-1 , C, 1 16) 

94  CALL  HCHAR  (R, C,  108) 

96  RETURN 

98  CALL  HCHAR (R,  C,  1  IB) 

100  C-C+1 

102  CALL  HCHAR (R, C, 1 19) 

104  RETURN 

106  CALL  HCHAR(R, C, 1 18) 

108  CALL  HCHAR (R+1 . C. 121 ) 

110  RETURN 

112  CALL  CLEAR 

114  PRINT  "«*  READING  PRACT 
ICE  *»■' 

116  PRINT  : : : : "READ  THE  WOR 


D  ON  THE  SCREEN. 


118  PRINT 


■PRESS  THE  SPAC 


E  BAR  TO  HEAR" 


120  PRINT 
122  PRINT 


THE  WORD. " 
PRESS  <ENTER> 
TO  GO  TO  THE" 

124  PRINT  : : "NEXT  WORD."::: 

126  FOR  C=97  TO  122 

128  READ  C* 

130  CALL  CHAR(C,C«) 

132  NEXT  C 

134  REM   REDEFINE  LOWERCASE 


136 


138 


140 


142 


144 


146 
148 

150 
152 
154 
156 
158 
160 
162 
164 
166 
16B 
170 
172 
174 


176 
178 
180 
182 
1S4 
186 
188 
190 
192 
194 
196 
198 


0 

407F 

REM 

PRINT  "NOW  PRESS  <ENTER 

>  TO  START. " 

CALL  KEY(0,K,S) 

IF     K<>13     THEN     150 

OPEN     ftl : "SPEECH" , OUTPUT 

F!=10 

READ     X* 

IF     X«="S)33"     THEN     216 

W«  =  X4 

CALL     CLEAR 

L=LEN (W«) 

C=12 

FDR 

A' 

at 

'2ib  ,  o*fj  Tit'i  ■ftjj  jA)  - 

,72, 20, 20,80,86, 

2,20,20, 98,20, le 

C  =  C  +  2 

NEXT    P 

CALL     KEY(0,K,S) 


GOTO  180 
READ  B* 
IF  B«="ZZZ" 
W«  =  B*!<X* 
GOTO  164 
D-"  ""^ 


THEN  158 


200  D 


,H,M,P,R,S 


202 
204 

206 

208 

210 

212 
214 
216 
218 
220 


GOTO  164 

DATA  AT,B,C,F,H,M, P, 

,T, V.TH.ZZZ 

DATA  AN,B,C, F, M, P, R, 

, TH, ZZZ 

DATA  ED, B, F,L,R, W, ZZZ 

DATA  IN, B,F, K, P, S, T, W, _ 

ZZ 

DATA  IT,B,F,H,K,L,P,S, W 

.ZZZ 

DATA  DG,C,D,F,H, J.L, ZZZ 

DATA  UG, B, D,H, J,L,M, R, T 

,ZZZ 

DATA  AND,B,H,L,S, ZZZ 

DATA  333 

CALL  CLEAR 

CLOSE  ni  _ 

END  © 
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AmigaView 


Charles  Brannon,  Program  Editor 


Programming  In  Modula-2 


There  are  a  plethora  of  program- 
rr\ing  languages  for  the  Amiga,  giv- 
ing programmers  and  developers  a 
wide  choice  of  programming  styles 
and  systems.  There  are  two  ver- 
sions of  BASIC  (MetaComCo's 
ABasiC  and  Microsoft's  Amiga 
BASIC),  two  C  compilers  (Manx 
Aztec  C  and  Lattice  C),  a  macro 
assembler/editor,  two  versions  of 
Pascal,  and  even  an  implementa- 
tion of  LISP.  Numerous  program- 
ming tools,  such  as  editors  and 
debuggers,  are  also  available. 

A  relative  newcomer  to  the 
scene,  TDI  Modula-2,  is  now  get- 
ting some  attention.  Some  pro- 
grammers consider  it  easier  to  learn 
and  use  than  C — since  it  shares 
many  of  the  high-level  aspects  of 
Pascal — while  still  retaining  a  ma- 
chine-level interface  for  maximum 
efficiency. 

Modula-2  is  a  descendent  of 
the  language  Modula,  which  in  turn 
is  a  descendent  of  Pascal.  Nicklaus 
Wirth,  the  inventor  of  Pascal,  de- 
signed Modula  from  the  roots  of 
Pascal,  but  purposely  kept  it  very 
simple  so  that  it  could  be  used  with 
very  small  computers — primarily 
for  controlling  hardware  devices 
such  as  robot  arms.  The  original 
Modula  had  little  application  out- 
side a  very  specialized  world,  so 
Wirth  put  back  most  of  the  features 
of  Pascal  to  create  Modula-2.  TDI 
has  worked  directly  with  Wirth  to 
implement  versions  of  Modula-2 
for  the  Amiga  and  Atari  ST. 

Software  Chips 

The  concept  of  Modula-2  is  echoed 
in  its  name.  It  is  a  language  de- 
signed specifically  for  the  tech- 
niques of  modular  programming, 
just  as  Pascal  was  designed  to  make 
structured  programming  conven- 
ient and  elegant.  Modular  program- 
ming— the  art  of  breaking  a  large, 
complex  problem  into  small,  inde- 
pendent tasks — is  at  the  heart  of  all 


programming,  but  Modula-2  tries 
to  bring  to  software  the  modularity 
inherent  in  computer  hardware, 
based  on  off-the-shelf  chips  and 
components.  With  "software 
chips,"  Wirth  envisioned,  software 
technology  could  advance  apace 
with  the  remarkable  speed  of  hard- 
ware evolution. 

If  software  chips  are  possible, 
they  have  to  be  based  on  program 
modules  that  can  be  truly  indepen- 
dent, hence,  individually  testable. 
You  can  compile  a  module  without 
having  to  recompile  the  entire  pro- 
gram. A  module,  once  developed, 
becomes  a  "black  box"  routine  that 
accepts  input  and/or  provides  out- 
put. You  no  longer  need  to  know 
how  this  module  works  internally 
to  use  it — you  just  plug  it  in  and  go, 
Writing  a  program  becomes  a  task 
of  putting  together  these  building 
blocks  in  the  right  way  without 
ever  needing  to  reinvent  the  wheel. 
Why  solve  a  problem  when  some- 
one else  has  already  found  the 
solution? 

Modula-2  comes  with  a  stan- 
dard library  containing  modules  for 
input/output,  math  routines,  and 
access  to  special  machine  features. 
You  use  only  the  routines  you're 
interested  in,  and  only  these  rou- 
tines (and  the  underlying  routines 
they  are  based  on)  need  to  be  in- 
cluded in  your  compiled  code.  This 
lets  you  control  the  size  of  your 
final  program. 

You  can  easily  add  your  own 
library  modules.  First,  you  write  the 
definition  module,  which  simply 
contains  the  procedure  headers  that 
specify  the  inputs  and  outputs  of  a 
module.  The  definition  module  pri- 
marily specifies  the  names  of  these 
procedures.  It  compiles  to  a  symbol 
file  for  use  by  the  compiler.  The 
implementation  module  contains  the 
actual  code  of  the  module.  You 
compile  the  definition  module  sep- 


arately  from   the   implementation 

module. 

You  can  change  and  recompile 
the  implementation  module  with- 
out changing  the  definition  mod- 
ule, as  long  as  your  procedure 
headings  remain  the  same.  When 
you're  referencing  library  modules, 
the  compiler  can  check  the  com- 
pact, compiled  symbol  file  rather 
than  the  full-length  definition  mod- 
ule, speeding  up  compilation.  After 
compilation,  a  linker  combines 
your  main  program  with  the  com- 
piled implementation  modules  to 
create  the  final  executable  program. 

Reminiscent  Of  Pascal 

One  of  the  best  ways  to  learn  about 
a  language  is  to  study  an  example 
program.  The  program  accompany- 
ing this  column  is  written  to  dem- 
onstrate some  of  the  features  of 
Modula-2  without  getting  bogged 
down  in  tricky  algorithms.  It's  a 
simple  guess-my-number  game.  The 
RandomNumbers  module  thinks  of 
a  number  from  1  to  100.  The  pro- 
gram then  gives  you  ten  tries  to 
guess  the  number,  helping  out  with 
hints.  If  you  guess  too  high,  the 
program  recommends  that  you  try  a 
smaller  number.  If  you  guess  too 
low,  you  should  try  a  higher 
number. 

Here's  how  the  program  works. 

The  first  line  declares  the  name  of 
the  module.  Next,  the  IMPORT 
statements  specify  which  external 
library  calls  we'll  be  using.  Then  we 
declare  the  variables.  We  define  the 
procedure  SkipEOL,  used  to  strip 
away  the  rest  of  a  line  after  getting  a 
single-character  response.  The 
main  loop  follows,  enclosed  by  the 
keywords  BEGIN  and  END.  (All 
Modula-2  keywords  must  be  typed 
in  uppercase,  which  can  be 
annoying.) 

Most  of  the  program  looks  very 
much  like  Pascal,  especially  the  use 
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of  :=  for  assignments  and  the  re- 
quired semicolon  at  the  end  of  each 
logical  line.  Also,  you  won't  find 
GOTO  anywhere  in  this  or  any 
Modula-2  program.  Instead,  you 
can  control  looping  and  program 
execution  with  statements  like 
LOOP-EXIT-END,  WHILE-END, 
REPEAT-UNTIL,  and  IF-THEN- 
ELSE-END. 

You  might  be  interested  to 
know  that  this  program  compiles  in 
35  seconds  when  the  source  code  is 
stored  in  the  RAM  disk;  it  takes  37 
seconds  to  compile  when  the 
source  code  is  stored  on* a  floppy 
disk.  Linking  takes  45  seconds  from 
the  RAM  disk,  and  just  one  minute 
from  a  floppy  disk.  This  is  quite  a 
bit  faster  than  Lattice  C  and  com- 
pares well  with  Aztec  C. 

There's  much  more  to  Modula- 
2  than  this  discussion  can  encom- 
pass. The  language  even  permits 
procedures  to  run  as  multitasking 
programs.  Our  example  doesn't 
show  how  easily  Modula-2  can  take 
advantage  of  the  Amiga  operating 
system — even  a  small  program 
would  be  too  large  to  demonstrate 
here — but  the  interface  is  similar  to 
C's,  using  Pascal-style  RECORDS 
instead  of  C  structures.  It's  possible 
to  develop  modules  that  support 
the  Amiga  operating  system  on  a 
higher  level,  using  calls  like 
Screen(320,200,5)  to  open  a  custom 
screen  as  opposed  to  filling  in  the 
blanks  of  a  NewScreen  structure, 
opening  the  Intuition  library,  and 
calling  OpenScreen(  ).  Some  high- 
level  modules  are  included  in  the 
library.  When  these  niodules  are 
developed  and  shared  between 
Modula-2  programmers,  Amiga 
programming  in  Modula-2  can 
seem  almost  as  easy  as  in  BASIC, 
but  with  every  advantage  of  a  mod- 
ern compiled  language. 
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MODULE  Example; 

FROM  InOut  IMPORT  EOL, Read, Readint .ReadString , 

WriteLn,WriteString,WriteInt; 
FROM  RandomNumbers  IMPORT  Random; 

VAR 
MyNum,  Guess,  Tries  :  INTEGER; 
Again  :  CHAR; 

(*  Skips  until  end  of  line  is  reached  *) 
PROCEDURE  SkipEOL; 
VAR  temp  ;  CHAR; 
BEGIN 

REPEAT 

Read (temp) ; 
UNTIL  temp=EOL; 
END  SkipEOL; 

(*  The  main  loop  *) 
BEGIN 
LOOP 

MyNum  :=  Random C 100 )+I ; 

WriteStringC'I'm   thinking   of   a    "); 

WriteString{ "number  from  1  to  100"); 

WriteLn; 

Tries  :=0; 

LOOP 

Tries  :=  Tries+1; 

IF  Tries > 10  THEN  EXIT;  END; 

WriteStringC "Guess  #"); 

Wr iteint ( Tries , 2 ) ; 

WriteStringC"?  "); 

Readlnt(Guess) ; 

WriteLn; 

IF  (Guess=MyNum)  OR  (Guess=0)  THEN  EXIT;  END; 

IF  Guess < MyNum  THEN 

WriteString( "Try  a  larger  number."); 

ELSE 

WriteString( "Try  a  smaller  number."); 

END;  (*  IF  *) 

WriteLn;  WriteLn; 
END;  (*  LOOP  *) 
IF  Tries>10  THEN 

WriteString( "You  only  get  10  tries l"); 
END;  (*  IF  *) 
IF  Guess=MyNum  THEN 

WriteString( "You  guessed  ray  numberl"); 

WriteLn; 

WriteString(" After  "); 

WriteInt(Tries,2) ; 

WriteString( "  tries."); 
END;  (*  IF  *) 
WriteLn;  WriteLn; 

WriteString("Play  again?  (Y/N) :  "); 
Read (Again) ; 

SkipEOL;  (*  skip  ahead  to  next  line  *) 
IF  (Again='N')  OR  (Again='n')  THEN  EXIT;  END; 
END;  (*  LOOP  *) 
END  Example. 
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IBM  Personal  Computing 


Donald  B.  Trivette 


Hard  Disks  And  The  Home  PC 


Technology  marches  on:  The  price 
of  a  hard  disk  drive — a  $2,000  luxu- 
ry just  a  few  years  ago — has  fallen 
to  a  point  where  it's  becoming  af- 
fordable for  home-based  comput- 
ers. Mail-order  houses  are  offering 
internal  hard  disks  for  less  than 
$400,  and  prices  of  hard  disk  cards 
are  coming  down  as  well.  If  you're 
thinking  about  upgrading  your  IBM 
PC  with  one  of  these  super  storage 
devices,  here  are  some  points  to 
consider. 

Hard  disk,  fixed  disk,  and  Win- 
chester disk  are  all  names  for  the 
same  thing — a  device  with  a  rigid 
magnetic  disk  permanently  sealed 
in  a  box.  Because  it's  sealed  from 
airborne  contaminants  and  has  a 
hard  rather  than  a  flexible  surface, 
it  can  record  larger  amounts  of  data 
than  a  floppy  disk,  and  the  data  can 
be  read  or  written  much  faster.  The 
smallest  hard  disks  commonly  in 
use  store  10  megabytes  of  data — 
that's  10,240  kilobytes,  or 
10,485,760  characters.  In  compari- 
son, a  standard  IBM  floppy  disk 
stores  only  360  kilobytes — 368,640 
characters.  Hard  disks  are  available 
for  the  PC  with  capacities  of  20,  50, 
and  even  100  megabytes,  although 
a  home  user  isn't  likely  to  need 
more  than  10  megabytes. 

Hard  disks  come  in  two  forms: 
the  internal  type  that  fits  into  one  of 
the  spaces  once  occupied  by  a  flop- 
py disk  drive  (half-height  or  full- 
height),  and  a  newer  configuration 
called  a  hard  disk  card  that 
squeezes  the  disk  onto  a  printed 
circuit  board  which  plugs  into  one 
of  the  PC's  expansion  slots. 

Can  You  Spare  A  Slot? 

Every  hard  disk  must  have  a  hard 
disk  controller.  An  ordinary  inter- 
nal hard  disk  requires  a  separate 
controller  board  connected  via  ca- 
bles to  the  drive.  One  advantage  of 
the  hard  disk  cards  is  that  both  the 
disk  and  the  controller  are  a  single 
compact  unit.  Either  way,  one  ex- 


pansion slot  is  used.  But  there  is  an 
alternative  for  internal  models.  For 
about  $50  extra,  you  can  order  a 
controller  that  runs  existing  floppy 
disk  drives  as  well  as,  the  hard 
drive.  This  allows  you  to  remove 
(and  scrap)  your  floppy  disk  con- 
troller board  and  free  up  one  expan- 
sion slot.  None  of  the  hard  disk 
cards  introduced  so  far  can  control 
floppy  disk  drives. 

Another  factor  to  consider  is 
power  consumption.  Hard  disk 
cards  are  designed  to  work  with  the 
63 -watt  power  supply  found  in  the 
IBM  PC;  many  of  the  internal  hard 
disks  were  designed  for  the  PC -XT, 
which  has  a  larger  power  supply. 
Frankly,  if  your  PC  is  already  brim- 
ming with  boards — parallel,  serial, 
color/graphics,  and  game  ports  as 
well  as  memory  expansion — you 
should  strongly  consider  replacing 
the  old  power  supply  no  matter 
which  type  of  hard  disk  you  install. 
The  operation  is  as  simple  and  safe 
as  removing  some  screws  and  un- 
plugging some  wires.  A  new  135- 
watt  power  supply  can  be 
purchased  for  as  low  as  $90. 

Of  course,  speed  and  reliability 
are  prime  considerations  when  in- 
vesting in  a  hard  disk.  Although 
reliability  is  difficult  to  measure 
without  an  industry-wide  mean- 
time-between-failure  test,  there  are 
some  things  you  can  check.  An  ox- 
ide coating  on  the  disk  surface  is 
more  stable  and  thus  more  reliable 
than  plated  or  sputtered  media.  The 
type  of  actuator  that  moves  the 
read/write  heads  across  the  surface 
of  the  platter  not  only  affects  speed, 
but  also  influences  accuracy.  A 
voice-coil  actuator  is  faster  and 
more  reliable  (and  more  expensive) 
than  the  more  common  stepper- 
motor  actuator.  Therefore,  look  for 
a  hard  disk  with  an  oxide  coating 
and  voice-coi!  actuator. 

Fast,  Faster,  Fastest 

Speed  varies  greatly  depending  on 


the  make  and  model.  Consider  the 
results  of  a  test  which  measures  a 
mixture  of  1,000  sequential  and 
random  accesses — a  test  that  is 
typical  of  how  real  computer  pro- 
grams use  a  hard  disk.  The  times 
range  from  12  milliseconds  for  a 
high-performance  internal  drive 
like  Core  International's  AT  line,  to 
more  then  100  milliseconds  for 
some  of  the  inexpensive  hard  disk 
cards.  A  hard  disk  for  home  use — 
where  you  don't  need  top  per- 
formance— should  have  a  sequen- 
tial/random access  time  in  the  30- 
to  60-millisecond  range. 

Cost  is  usually  a  major  consid- 
eration when  selecting  a  hard  disk 
for  home  use.  Hard  disk  cards  cost 
as  litfle  as  $550  for  a  10-megabyte 
unit  to  as  much  as  $1,200  for  20 
megabytes.  Internal  20-megabyte 
drives,  including  the  controller 
board,  are  generally  in  the 
$400-$600  range;  10-megabyte 
models  cost  about  $100  less.  The 
best  advice  here  is  not  to  choose  a 
disk  by  cost  alone.  Consider  all  the 
factors. 

My  own  PC  has  a  20-megabyte 
internal  Seagate  drive,  a  new  135- 
watt  power  supply,  and  a  controller 
that  also  runs  two  half-height  flop- 
py drives.  It  cost  about  $650  and 
took  two  hours  to  install.  An  alter- 
native I'd  be  comfortable  with  is 
Plus  Development's  10-megabyte 
Hardcard;  it's  designed  for  those 
who  want  a  quick,  simple  installa- 
tion and  who  don't  want  to  fool 
with  a  new  power  supply.  The 
Hardcard,  at  about  $900,  is  a  well- 
engineered  solution  to  upgrading 
your  computer's  mass  storage  capa- 
bilities. 

One  final  caveat:  Whether  you 
spend  ten  minutes  or  two  hours 
installing  the  hardware,  plan  to 
spend  lots  more  time  learning  to 
use  the  DOS  commands  that  are 
necessary  to  manage  files  on  a  hard 
disk.  © 
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MIX 

Ottis  Cowper,  Technical  Editor  i 


Machine  Language  Entry  Program 
For  Commodore  64 


"MIX"  is  a  labor-saving  utility  that  al- 
lows will  help  you  enter  machine  lan- 
guage program  listings  without  error. 
MIX  is  required  to  enter  all  Commodore 
64  machine  language  programs  published 
in  COMPUTE!. 

Type  in  and  save  some  copies  of  MLX 
(you'll  want  to  use  it  to  enter  future  ML 
programs  from  COMPUTE!,  COMPUTE !'s 
GAZETTE,  and  COMPUTE!  books). 
When  you're  ready  to  enter  an  ML  pro- 
gram, load  and  run  MLX.  You'll  be 
asked  for  a  starting  address  and  an 
ending  address.  These  addresses 
should  appear  in  the  article  accompa- 
nying the  MLX- format  program  listing 
you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-R  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and 
ending  addresses,  you'll  be  offered  the 
option  of  clearing  the  workspace.  The 
data  you  enter  with  MLX  is  kept  in  a 
special  reserved  area  of  memory;  clear- 
ing this  workspace  fills  the  reserved 
area  with  zeros,  which  makes  it  easier 
to  find  where  you  left  off  typing  if  you 
enter  the  listing  in  several  sessions. 
Choose  this  option  if  you're  starting  to 
enter  a  new  listing.  If  you're  continuing 
a  listing  that's  partially  typed  from  a 
previous  session,  there's  no  point  in 
clearing  the  workspace,  since  the  data 
you  load  in  will  fill  the  area  with  what- 
ever values  were  in  workspace  memory 
at  the  time  of  the  last  Save. 

At  this  point,  functions  menu  will 
appear.  If  you're  just  starting  to  type  in 
a  program,  pick  the  first  option,  ENTER 
DATA,  by  pressing  the  E  key.  You'll  be 
asked  for  an  address;  type  the  four-digit 
number  at  the  start  of  the  first  line  of 
the  program  listing.  If  you've  already 
typed  in  part  of  a  program,  be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry,  then  choose 
the  ENTER  DATA  option  and  type  the 
line  number  where  you  left  off  typing  at 
the  end  of  the  previous  session.  In  any 


case,  make  sure  the  address  you  enter 
corresponds  to  the  address  of  a  line  in 
the  listing.  Otherwise,  you'll  be  unable 
to  enter  the  data  correctly.  If  you 
pressed  E  by  mistake,  you  can  return  to 
the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  ad- 
dress. (You  can  get  back  to  the  menu 
from  most  options  by  pressing  RE- 
TURN with  no  other  input.) 

Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first 
two-digit  number  after  the  colon  (:). 
Each  line  represents  eight  data  bytes 
and  a  checksum.  Although  an  MLX- 
format  listing  appears  similar  to  the 
"hex  dump"  listings  from  a  machine 
language  monitor  program,  the  extra 
checksum  number  on  the  end  allows 
MLX  to  check  your  typing. 

When  you  enter  a  line,  MLX  recal- 
culates the  checksum  from  the  eight 
bytes  and  the  address  and  compares 
this  value  to  the  number  from  the  ninth 
column.  If  the  values  match,  you'll  hear 
a  bell  tone,  the  data  vrill  be  added  to  the 
workspace  area,  and  the  prompt  for  the 
next  line  of  data  will  appear.  But  if  MLX 
detects  a  typing  error,  you'll  hear  a  low 
buzz  and  see  an  error  message.  The  line 
will  then  be  redisplayed  for  editing. 

invalid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type 
spaces  between  the  columns;  MLX 
automatically  inserts  these  for  you.  You 
do  not  press  RETURN  after  typing  the 
last  number  in  a  line;  MLX  automatically 
enters  and  checks  the  line  after  you 
type  the  last  digit. 

Only  the  numerals  0-9  and  the 
letters  A-F  can  be  typed  in.  If  you  press 
any  other  key  (with  some  exceptions 
noted  below),  you'll  hear  a  warning 
buzz,  MLX  checks  for  transposed  char- 
acters. If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  MLX  will  catch 
your  mistake.  There  is  one  error  that 
can  slip  past  MLX:  Because  of  the 
checksum  formula  used,  MLX  won't 
notice  if  you  accidentally  type  FF  in 
place  of  00,  and  vice  versa.  And  there's 
a  very  slim  chance  that  you  could  gar- 
ble a  line  and  still  end  up  with  a  combi- 
nation of  characters  that  adds  up  to  the 


proper  checksum.  However,  these  mis- 
takes should  not  occur  if  you  take  rea- 
sonable care  while  entering  data. 

Editing  Features 

To  correct  typing  mistakes  before  fin- 
ishing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  de- 
letes.) If  you  mess  up  a  line  really  badly, 
press  CLR/HOME  to  start  the  line  over. 
The  RETURN  key  is  also  active,  but 
only  before  any  data  is  typed  on  a  line. 
Pressing  RETURN  at  this  point  returns 
you  to  the  command  menu.  After  you 
type  a  character  of  data,  MLX  disables 
RETURN  until  the  cursor  returns  to  the 
start  of  a  line.  Remember,  you  can  press 
CLR/HOME  to  quickly  get  to  a  line 
number  prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX 
has  detected  an  error.  To  make  correc- 
tions in  a  line  that  MLX  has  redisplayed 
for  editing,  compare  the  line  on  the 
screen  with  the  one  printed  in  the  list- 
ing, then  move  the  cursor  to  the  mis- 
take and  type  the  correct  key.  The 
cursor  left  and  right  keys  provide  the 
normal  cursor  controls.  (The  INST/ 
DEL  key  now  works  as  an  alternative 
cursor-left  key.)  You  cannot  move  left 
beyond  the  first  character  in  the  line.  If 
you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  line.  Dur- 
ing editing,  RETURN  is  active;  pressing 
it  tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  clear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Dispiay  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing  (including  the  check- 
sum). When  you  press  D,  MLX  asks  you 
for  a  starting  address.  Be  sure  that  the 
starting  address  you  give  corresponds 
to  a  line  number  in  the  listing.  Other- 
wise, the  checksum  display  will  be 
meaningless.  MLX  displays  program 
lines  until  it  reaches  the  end  of  the 
program,  at  which  point  the  menu  is 
redisplayed.  You  can  pause  the  display 
by  pressing  the  space  bar.  (MLX  finish- 
es printing  the  current  line  before  halt- 
ing.) Press  space  again  to  restart  the 
display.  To  break  out  of  the  display  and 
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get  back  to  the  menu  before  the  ending 
address  is  reached,  press  RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  load  them  back  into  the 
computer.  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

You'll  notice  the  disk  drive  starting 
and  stopping  several  times  during  a 
load  or  save.  Don't  panic;  this  is  normal 
behavior.  MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands. 
Disk  users  should  also  note  that  the 
drive  prefix  0;  is  automatically  added  to 
the  filename  (line  750),  so  this  should 
nof  be  included  when  entering  the 
name.  This  also  precludes  the  use  of  @ 
for  Save-with -Replace,  so  remember  to 
give  each  version  you  save  a  different 
name. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting 
address  to  the  ending  address,  so  the 
save  or  load  may  take  longer  than  you 
might  expect  if  you've  entered  only  a 
small  amount  of  data  from  a  long  list- 
ing. When  saving  a  partially  completed 
listing,  make  sure  to  note  the  address 
where  you  stopped  typing  so  you'll 
know  where  to  resume  entry  when  you 
reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX; 
LOAD  ENDED  AT  address,  which 
means  the  fUe  you're  trying  to  load 
ends  before  the  ending  address  you 
specified  when  you  started  MLX;  and 
TRUNCATED  AT  ENDING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  extends  beyond  the  ending  ad- 
dress you  specified  when  you  started 
MLX.  If  you  see  one  of  these  messages 
and  feel  certain  that  you've  loaded  the 
right  file,  exit  and  rerun  MLX,  being 
careful  to  enter  the  correct  starting  and 
ending  addresses. 

The  QUIT  menu  option  has  the 
obvious  effect — it  stops  MLX  and  en- 
ters BASIC.  The  RUN/STOP  key  is  dis- 
abled, so  the  Q  option  lets  you  exit  the 
program  without  turning  off  the  com- 
puter. (Of  course,  RUN/STOP-RE- 
STORE also  gets  you  out.)  You'll  be 
asked  for  verification;  press  Y  to  exit  to 
BASIC,  or  any  other  key  to  return  to  the 


menu.  After  quitting,  you  can  type 
RUN  again  and  reenter  MLX  without 
losing  your  data,  as  long  as  you  don't 
use  the  clear  workspace  option. 

The  Finished  Product 

When  you've  finished  typing  all  the 
data  for  an  ML  program  and  saved  your 
work,  you're  ready  to  see  the  results. 
The  instructions  for  loading  and  using 
the  finished  product  vary  from  program 
to  program.  Some  ML  programs  are 
designed  to  be  loaded  and  run  like 
BASIC  programs,  so  all  you  need  to 
type  is  LOAD  "/i/ename",8  for  disk  or 
LOAD  "filenamd'  for  tape,  and  then 
RUN.  Such  programs  will  usually  have 
a  starting  address  of  0801.  Other  pro- 
grams must  be  reloaded  to  specific  ad- 
dresses with  a  command  such  as  LOAD 
" filename', %,\  for  disk  or  LOAD  "file- 
name' ,\,\  for  tape,  then  started  with  a 
SYS  to  a  particular  memory  address. 
The  most  common  starting  address  for 
such  programs  is  49152,  which  corre- 
sponds to  MLX  address  COOO.  In  either 
case,  you  should  always  refer  to  the 
article  which  accompanies  the  ML  list- 
ing for  information  on  loading  and  run- 
ning the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Auto- 
matic Proofreader"  to  type  MLX,  and 
then  test  your  copy  thoroughly  before 
first  using  it  to  enter  any  significant 
amount  of  data.  Make  sure  all  the  menu 
options  work  as  they  should.  Enter 
fragments  of  the  program  starting  at 
several  different  addresses,  then  use  the 
Display  option  to  verify  that  the  data 
has  been  entered  correctly.  And  be  sure 
to  test  the  Save  and  Load  options  sever- 
al times  to  ensure  that  you  can  recall 
your  work  from  disk  or  tape.  Don't  let  a 
simple  typing  error  in  MLX  cost  you 
several  nights  of  hard  work. 

MLX 

Fof  instrudions  on  entering  this  itsting,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  in  this  Issue  of  COMPUTE!, 

EK  100  POKE  S6,50:CLR:DIM  IN?, 
I,J,A,B,A?,B5,A(7),N5 

DM  110  C4=48:C6=16:C7=7sZ2=2:Z 
4=254 :Z5=255: 26=256: 27= 
127 

CJ  120  FA=PEEK(4S)+Z6*PEEK(46) 
:BS=PEEK(55)+Z6*PEEK(56 
) :H?="0123456789ABCDEF" 

SB  130  R?=CHR$(I3)  :L5="{LEFT)'" 
:S?-"  ":D$=CHR?(20);2$= 
CHR?(0) !T?="{13  right!" 

CQ  140  SD=54272!POR  I=SD  TO  SD 
+23:POKE  I ,0 :NEXT: POKE 
{SPACE]SD+24,15:POKE  78 
8,52 

FC  159  PRINT" (CLR]"CHR?(142)CH 
R5(8):POKE  53280, 15:P0K 


EJ  160 


FR  170 


JB  180 


GF  190 


KR  200 


PG  210 


DR  220 


E  53281,15 

PRINT  T$"  {RED){RVS) 

(2  SPACES  lis  @| 

(2  SPACES }"SPC( 28)" 

{2  SPACES  }{  OFF  }{BLU  3  ML 

X  II  {red)(rvsJ 

{2  SPACES} "SPC{ 28)" 

{12  SPACES) (BLU]" 

PRINT" (3  DOWN] 

t3  SPACES ICOMPUTEl 'S  HA 

CHINE  LANGUAGE  EDITOR 

[3  DOWN]" 

PRINT" (BLKJ STARTING  ADD 

RESSg4| " ; :GOSU3300 !SA=A 

D:GOSUB1040:IF  F  THEN18 

0 

PRI NT " f  BLK  J  f  2  SPACES  3  EN 

DING  ADDRESS g4i "; :GOSUB 

300:EA=ADJGOSUB1030!IP 

(SPACElF  THEN190 

I NPUT " { 3  DOWN  3 { BLK  3  CLEA 

R  WORKSPACE  [Y/n3|43";A 

$iIF  LEFT?(A5,1)<>"Y"TH 

EN220 

PRINT"  £2  DOWN  3  [BLU}  WORK 

ING . . . "; :FORI=BS  TO  BS+ 

BA-SA+7:POKE    IjSjNEXTiP 

RI NT "DONE" 

PRINTTAB(10)"{2    DOWN) 

(BLKlfRVS)    MLX    COMMAND 

{ SPACE }MENU     {DOWNJE43": 

PRINT   T$"{RVSJe{0FF3NTE 

R    DATA" 

PRINT    T?"{RVS}D[0FF3ISP 

lay  data": print  t?" 
{rvs}l{off}oad  file" 
PRINT  t9"{rvs}sEoff3ave 

file": PRINT  T?"{RVS)Q 
{0FFJUIT{2  down) [BLK J" 
GET  A5:IF  A5=N5  THEN250 
A=0:FOR  1=1  TO  5: IF  A9= 
MID$("EDLSQ",I,1)THEN  A 
=1:1=5 

NEXTjON  a  GOTO420,610,6 
90 , 700, 230 :GOSUB1060 :G0 
TO250 

PRINT"{RVS}  QUIT  ":INPU 
T"{D0WN}i4iARE  YOU  SURE 

[Y/N]";A$:IF  LEFT? (A?, 
1)<>"Y"THEN220 
POKE  SD+24,0sEND 
IN$=NS  :  ADssB  :  INPUTINS  :  I  F 
LEK ( IN? ) <  >  4THENRETURN 
B?=IN9:GOSUB320:AD=Ar85 
=MID$(IN$,3) :GOSUB320:A 
D=AD*256+A: RETURN 
A=0:FOR  J=l  TO  2}A?=MID 
$(B$,J,1):B=ASC{A$)-C4+ 
(A5>"@")*C7:A=A*C6+B 
IP  B<0  OR  B>15  THEN  AD= 
0!A=-lrJ=2 
NEXT: RETURN 

B=INT(A/C6): PRINT  MID5( 
HI , B+1 , 1 ) ; : B=A-B*C6 : PRI 
NT  MID?(H$,B+1,1); :RETU 
RN 

A=INT  ( .!^D/Z6  )  sGOSUB350:A 
=AD-A*Z6 :GOSOB350 : PRIST 


BE    370    CK=INT(AD/Z6) :CK=AD-Z4* 

CK+Z5*(CK>Z7) :GOTO390 
PX    380    CK=CK*Z2+ZS*(CK>Z7)+A 
JC    390    CK=CK+Z5*(CK>Z5):RETURN 
QS    400    PRIST  "{EXDWN)  STARTING    AT 
g4i"?:GOSUB300:IF    IN$<> 
N$    THEN    GOSUB1030:IF    F 
{SPACEITHEN400 
EX    410    RETURN 

HD    420    PRINT "(RVS)    ENTER    DATA 
{SPACE} ":GOSUB400: IF    IN 
5=N5    THEN220 


BD 

230 

JS 

240 

JH 

2  50 

HK 

260 

FD 

270 

EJ 

280 

EM 

290 

JX 

300 

KF 

310 

PP 

320 

JA 

330 

GX 

340 

CH 

350 

RR 

360 

July  1986     COMPUTE!      115 


JK    430    OPEN3,3:PRINT 
SK    440    PQKE198,0:GOSUB360:IP    F 
THEN    PRINT    IN5:PRINT" 

{UPl {5    RIGHT)"; 
GC    450    FOR    1=0    TO    24    STEP    3:65 

=S?:FOR    J=l    TO    2tIF    F   T 

HEN    B5=MinS(IN?.I+J.l) 
HA   460    PRINT"(RVSj'*B5I'$r  :IF    I< 

24THEN    PRINT "{OFF)", • 
HD    470    GET   A5:IF   A$=N$    THEN470 
FK    480    IF(A?>"/"AHDA$<": "}OR(A 

?>"ia"ANDA$<"G")THEN540 
MP    490    IF    A$=R$    AND ({1=0) AND (J 

=1)0R    F)THEN    PRINT    B? ; ; 

J=2 :NEXT: 1  =  24  sGOTO5  50 
KC    500    IF    A?="lHOHEl"    THEN    PRI 

NT    B$:J=2!NEXT:I=24:NEX 

T:F=0:GOTO440 
MX    510    IF {A$=" (RIGHT) ")ANDF   TH 

ENPRINT  B$L$; :GOTO540 
GK  520  IF  A5<>L?  AND  A5<>DS  OR 

( (I=0)AND(J=1))THEN  COS 

UB1060:GOTO470 
HG    530    A9=L5+S$+L5:  PRINT    B?L$,- 

:J=2-J:IF    J    THEN    PRINT 

{SPACEJL?; ! 1=1-3 
QS    540    PRINT    A5;:NEXT   JiPRINT 

( SPACE )SS; 
PM    550    NEXT    I: PRINT: PRINT "[up) 

[5    RIGHT3"r:INPUT#3.IN$ 

:IF    IN?=N5    THEN    CL0SE3 : 

GOTO220 
QC    560    FOR    1=1    TO   25    STEP3:B5= 

MID$(INS,I) :GOSUB320:IF 
I<25    THEM   GOSUB38'0:A(I 

/3)=A 
PK    5  70    NEXT!  IF    AOCK    THEN    GOSU 

B1060 SPRINT "(BLK) ( RVS ) 

{SPACE  3  ERROR!     REENTER    L 

INE    E4i":F=l:GOTO440 
HJ    580   GOSUB1080:B=BS+AD-SA:FO 

R    1=0    TO   7iP0KE    B+I,A(I 

) :NEXT 
QQ    590    AD=AD+8sIF    AD>EA    THEN    C 

L0SE3: PRINT" {DOWN) {bLU) 

**    END    OF    ENTRY    **{BLK) 

[2    DOWN}":GOTO700 
GQ    600    F=0:GOTO440 
QA    610    PRINT "{CLR) {DOWN j {RVS) 

{space) DISPLAY    DATA    "iG 

OSUB400:IF    IN?=NS    THEN2 

20 
RJ    620    PRINT"{D0WN}[BLU)PRESS: 
{RVS I  SPACE {OFF  3    TO    PAU 

SE,     {RVS)RETURN{0FF1    TO 
BREAK  Mi  (DOWN  3" 
KS    630    GOSUB360!B=BS+AD-SA:FOR 

I=BTO    B+7 !A=PEEK( I ) tGOS 

UB350:GOSUB3B0!PRIKT    S? 

CC    640    NEXT:PRINT"[RVS3"; !A=CK 

:GOSUB350: PRINT 
KH    650    F=l!A0=AD+a:IF    AD>EA    TH 

ENPRINT " (DOWN ) (BLU)**    E 

ND   OF    DATA    **":GOTQ220 
KC   660    GET    A$:IF  A5=R?    THEN   GO 

SUB1080:GOTO220 
EQ    670    IF    A5=S5    THEN    F=F+l:GOS 

UB1080 
AD    680    ONFGOT063 0,660, 630 
CM    690    PRINT" (DOWN) {RVS 3    LOAD 

[SPACE  3 DATA    ":OP=l!GOTO 

710 
PC    700    PRINT "(DOWN  3 {RVS}    SAVE 

(SPACE) FILE    ":OP=0 
RX    710    IN$=N$: INPUT "( DOWN )FILE 

NAMEi43";IN?:IF    IN?=N? 

{ SPACE 3THEN220 
PR    720    F=0:PRINT"{DOVJN3  (BLK) 

( RVS )T{ OFF  JAPE    OR    ( RVS ) 

D{OFF}lSKt     B4i"j 


FP    730    GET    A$:IF    A?="T"THEN    PR 

INT "T { DOWN } " : GOT 0880 
HO    740    IF   A5<>"D"THEN730 
HH    750    PRINT"D{D0WN3":0PEN15,8 

, 15 , "10 : " : B=EA-SA: INS=" 

0:"+IN?:IF  OP  THEN810 
SQ  760  OPES  I,8,8,IN?+",P,W"!G 

OSUB860:IF  A  THEN220 
FJ  770  AH=INT(SA/256)!AL=SA-(A 

H*256) !PR1KT#1,CHR?(AL) 

,-CHR$(AH); 
PE    780    FOR    1=0    TO    BiPRINT#l,CH 

R5(PEEK(BS+I)); !IF    ST    T 

HEN800 
FC  790  NEXT:CLOSEl !CLOSE15:GOT 

O940 
GS  800  GOSUB1060: PRINT "(DOWN  3 

(BLK3 ERROR  DURING  SAVE: 

643 " : GOSUB860 :GOTO220 
MA  810  OPEN  1,8,8,IN$+",P,R":G 

OSUBa60:IF  A  THEN220 
GE  620  GET#1,A$,B?:AD=ASC(AS+Z 

5)+256*ASC(B5+Z5) :IF  AD 

<>SA  THEN  F=l!GOTO850 
RX  830  FOR  1=0  TO  B:GET#1,AS:P 

OKE  BS+I,ASC(A$+Z9) !IF( 

I<>B)AND  ST  THEN  F=2sAD 

=I:I=B 
FA  840  NEXT: IF  ST<>64  THEN  F=3 
FQ  850  CLOSEl!CL0SE15!ON  ABS(F 

>0)+l  GOTO960,970 
SA  860  INPUT#15,A,A5:IF  A  THEN 
CLOSE! :CL0SE15 :GOSUB10 

60:PRIKT"(RVS}ERROR:  "A 

? 
GQ  870  RETURN 
EJ  880  POKE183,PEEK(FA+2) !POKE 

187,PEEK(FA+3) :POKE183, 

PEEK  (  FA+4  )  !  IFOP>'0THEN92 

0 
HJ   890    SYS   63466:1? (PEEK (783) A 

NDDTHEN    GOSUB1060:PRIN 

T"{D0WN3 (RVS)    FILE    NOT 

{ SPACE )FOUND    ":GOTO690 
CS    900    AD=PEEK(829)+2S6*PEEK(8 

30):IF    ADOSA    THEN    F=l: 

GOTO970 
SC    910    A=PEEK(831)+2S6*PEEK(83 

2)-l:F=F-2*(A<EA)-3*(A> 

EA) :AD=A-AD!GOTO930 
KM   920    A=SA:B=EA+1:GOSUB1010!P 

OKE780,3:SYS    63338 
JF    930    A=BS:B=BS+(EA-SA)+liGOS 

UB1010:ON   OP    GOTO950:SY 

S    63591 
AE    940    GOSUB1080 SPRINT" (BLU)** 
SAVE    COMPLETED    **":GOT 

0220 
XP    950    POKE147,0:SYS    63562 :IF 

{SPACE)ST>0    THEN970 
FR    960    GOSUB1080:PRINT"{BLU)** 
LOAD   COMPLETED    **":GOT 

0220 
DP    970    GOSUB1060:PRINT"(BLKJ 

[RVS3ERROR    DURING    LOAD: 
{DOWN)E4i":ON    F   G0SUB98 

0,990, 1000 !GOTO220 
PP    980    PRINT "INCORRECT    STARTIN 

G    ADDRESS    (  "  ?  !GOSUB360  .■ 
PRINT  "  )  "  :  RETURN 
G8    990    PRINT "LOAD    ENDED    AT    ";: 

AO=SA+AD:GOSUB360sPRINT 
D5 ! RETURN 
FD    1000    PRINT "TRUNCATED    AT    END 

ING  ADDRESS ": RETURN 
RX  1010  AHsINT (A/256 ) :AL=A-( AH 
*256) :POKE193,AL!POKEl 
94,  AH 
FF  1020  AH=INT ( 8/256 ):AL»B-( AH 
*256) :POKE174,AL:POKE1 
75, AH:RETURN 


FX    1030    IF   AD<SA   OR    AD>EA    THEN 

1050 
HA   1040    IF(AD>511    AND   AD<40960 

)0R{AD>49151    AND   AD<53 

248)THEN   GOSUB1080 !F=0 

: RETURN 
HC    1050    GOSUB1060:PRINT"{RVS} 

I  SPACE } I NVALI D    ADDRESS 
{ DOWN) t  BLK} " : F=l i RETU 

RN 
AR    1060    POKE   SD+5,31sPOKE    SD+6 

,208: POKE   SD,240:POKE 

{SPACE3SD+1,4!P0KE    SD+ 

4,33 
DX    1070    EX)R    S=l    TO    100iNEXTtGO 

TO1090 
PF    1080    POKE   SD+5,8:POKE   SD+6, 

240: POKE    SD,0:POKE    SD+ 

1,90: POKE  SD+4,17 
AC  1090  FOR  S=l  TO  100:NEXT!PO 

KE    SD-l-4,0iPOKE    SD,0:PO 

KE    SD+ 1,0! RETURN 
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News  &  Products 


New  Products  From 
Batteries  Included 

An  extensive  array  of  new  software 
programs  for  Apple,  Atari,  Commo- 
dore, and  IBM  computers  has  been  an- 
nounced by  Batteries  Included.  The  list 
includes  the  following: 

1*S  Talk  is  a  full-featured  GEM- 
based  telecommunications  program  for 
the  Atari  ST  and  the  IBM  PC.  The  pro- 
gram is  part  of  the  company's  Integral 
Solutions  line  of  GEM-based  products. 
/*S  Talk  features  a  built-in  50,000-word 
spelling  checker,  three  levels  of  auto- 
mation functions,  keystroke  macros, 
and  an  unlimited  capture  buffer  includ- 
ing X-modem  file  transfers.  Other  fea- 
tures include  Replay,  and  a  unique 
session  recorder.  A  custom  keyboard 
interface  is  built  in,  allowing  you  to  use 
the  mouse  or  function  keys  and  key- 
board. 

Suggested  retail  prices  are  $79.95 
for  the  ST  version  and  $99.95  for  the 
IBM  version. 

The  popular  HomePak  three-in-one 
word  processor,  database  manager,  and 
telecommunications  package  should  be 
available  by  the  time  you  read  .this  in 
versions  for  the  Apple  Macintosh,  the 
Atari  ST,  and  the  Commodore  128 
computers.  HomePak  sells  for  $49.95, 
and  is  already  available  for  the  Com- 
modore 64,  Apple  11,  IBM  PC/PCjr,  and 
Atari  XL/XE  computers. 

The  Paperclip  II  word  processor 
for  the  Commodore  128  is  designed  to 
take  advantage  of  the  128's  memory, 
speed,  and  power.  The  program  in- 
cludes a  built-in  telecommunications 
module  for  use  with  online  services,  a 
20,000-word  spell  checker,  macro  capa- 
bility, multiple  columns,  reverse  video 
scroll,  word  wrap,  chaptering,  and  an 
expanded  maximum  document  size. 
PaperCUp  11,  priced  at  $79.95,  is  com- 
pletely compatible  with  PaperCUp  text 
files  on  the  Commodore  64.  Also  new 
(or  planned  for  release  soon)  are  Paper- 
CUp With  SpellPack  for  the  Atari  130XE 
($59.95);  PaperCUp  for  the  Apple  II, 
II-I-,  lie,  and  He  computers  ($59.95); 
and  1*5  PaperCUp  Elite  for  the  IBM  PC 
and  compatibles  ($129.95),  Atari  ST 
($79.95),  and  Commodore  Amiga 
($129.95).  PaperCUp  Elite  includes  all  of 
the  earlier  PaperCUp  features,  plus  ad- 


vanced functions  such  as  a  real-time 
spelling  checker,  idea  processing,  inde- 
pendent linked  windows,  integrated 
text  and  graphics,  and  other  capabil- 
ities. 

/*S  Degas  Elite,  an  upgraded  ver- 
sion of  the  original  Degas  graphics  and 
design  program  for  the  Atari  ST,  will  be 
available  soon  for  the  IBM  PC  and  com- 
patibles, Amiga,  and  ST.  The  program 
includes  everything  in  the  original,  plus 
features  like  FLIP,  SCALE,  ROTATE, 
and  the  ability  to  cut  and  paste  between 
pictures  on  multiple  work  screens.  DE- 
GAS Elite  files  can  also  be  integrated 
with  PaperCUp  Elite  text  files,  and  all 
Degas  Elite  files  are  compatible  with  the 
original  Degas. 

Batteries  Included  will  also  be  mar- 
keting The  Isgur  Portfolio  System  (IPS) 
for  the  IBM  PC  ($249.95),  the  Atari  ST 
($199.95),  the  Amiga  ($249.95),  and  the 
Apple  Macintosh  (S249.95).  This  is  an 
investment  management  program  de- 
signed by  Lee  Isgur,  Wall  Street  analyst 
and  first  vice  president  of  Paine  Webber 
in  New  York.  IPS  lets  you  update  your 
portfolios  automatically  from  online 
services,  and  provides  a  variety  of  ana- 
lytical tools  for  more  profitable  decision 
making. 

BTS  The  Spreadsheet  is  a  $69.95 
spreadsheet  for  the  Macintosh,  Atari 
ST,  and  Amiga  that  includes  key  math, 
statistical,  and  financial  functions,  logi- 
cal operators,  formatting  enhancements, 
and  other  features.  Maximum  work- 
sheet size  is  1000  rows  by  1000  col- 
umns. Desk  accessory  version  is 
included  on  the  same  Macintosh  and 
ST  disks. 

Timelink  is  an  electronic  diary  pro- 
gram for  planning  and  record-keeping, 
available  for  the  Macintosh  and  Atari 
ST  for  $49.95  each.  l*S  Time  And  Billing 
is  a  professional  office  administration 
program  planned  for  the  fourth  quarter 
of  1986  for  IBM  and  Atari  ST  comput- 
ers. /*S  Consultant,  also  planned  for  the 
fourth  quarter,  is  an  enhanced  Atari  ST 
version  of  the  original  Consultant  data- 
base. The  new  program  wiU  use  the 
GEM  interface  and  contain  additional 
features.  B/GRAPH  Elite  (a  fourth  quar- 
ter release)  is  a  $69.95  graphics/chart- 
ing and  statistical  analysis  package  for 
the  Atari  ST. 

Soon  to  be  available  is  Thunder,  a 


$39.95  writer's  accessory  that  can  be 
called  for  use  from  within  any  GEM- 
based  Atari  ST  application.  Features  in- 
clude a  50,000-word  spelling  checker 
with  three  different  error-catching 
modes  and  an  immediate  word  replace- 
ment capability.  An  Abbreviation  func- 
tion will  even  supply  you  with  the 
remainder  of  the  word,  or  words,  you 
want  when  you  type  in  just  the  first  few 
letters.  And  a  built-in  report  analyzer 
gives  you  details  on  everything  from 
word  count  to  the  document's  relative 
readability. 

Batteries  Included,  30  Mural  St., 
Richmond  Hill,  Ontario,  Canada  L4B  W5. 
Circle  Reader  Service  Number  200. 


Abacus  Software,  Book 

Abacus  Software  has  introduced  sever- 
al Atari  ST  software  applications  pack- 
ages, each  priced  at  $39.95,  ST  TextPro 
is  a  word  processor  that  features  multi- 
column  output,  automatic  indexing  and 
table  of  contents,  scrolling,  definable 
function  keys,  sideways  output  (to  Ep- 
son printers),  and  printer  drivers  for 
other  printers.  The  program  allows  full- 
screen editing  with  either  mouse  or 
keyboard  commands. 

ST  Text  Designer  is  a  pagemaking 
package  for  creating  layouts  from  word 
processing  files.  The  program  reads  text 
files  from  ST  TextPro  and  other  ASCII 
word  processors,  and  allows  block  op- 
erations. Graphics  can  be  merged  into 
the  layout,  and  borders  and  lines  can  be 
added.  Output  is  to  Epson-compatible 
printers. 

ST  DataPro  is  a  data  management 
package  that  lets  you  input  data 
through  screen  templates,  Record 
length  is  unlimited,  with  a  maximum  of 
64,000  records  available.  The  package 
also  supports  a  RAM  disk  as  well  as  a 
floppy  disk,  sr  Forth/MT  is  a  multi- 
tasking implementation  of  the  Forth 
programming  language,  based  on  Forth 
83.  The  program  supports  32 -bit  arith- 
metic, has  more  than  1500  commands, 
and  includes  a  full-screen  editor.  Forth 
macro  assembler,  and  monitor  and  disk 
monitor. 

Abacus  is  also  announcing  ST 
PaintPro,  a  drawing  program,  and  ST 
AssemPro,  an  assembly  language  devel- 
opment package. 
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For  the  Commodore  128  computer, 
Abacus  recently  released  another  vol- 
ume in  Us  Commodore  128  Reference 
Library.  The  $19.95  title  is  Commodore 
1571  Internals. 

Abacus   Software.   P.O.   Box   7211, 
Grand  Rapids.  MI  49510. 
Circle  Reader  Service  Number  201. 


64  Software  From  Firebird 

Firebird  has  released  several  new  soft- 
ware packages  for  the  Commodore  64 
and  128. 

The  Music  System  is  a  comprehen- 
sive music  development  package  that 
includes  full  sonic  tailoring  of  the  com- 
puter's SID  chip,  multi-voicing,  mono 
or  polyphonic  modes,  editing,  record- 
ing, and  storage  and  playback  of  sound 
settings  and  compositions. 

There  is  an  advanced  version  of 
The  Music  System  which  includes  the 
features  of  the  standard  version  and 
adds  MIDI  capabilities  (compatible 
with  either  S.I.E.L.  or  Passport  Designs 
MIDI  interfaces).  The  advanced  version 
enables  the  user  to  link  and  edit  se- 
quences, control  six  MIDI  tracks  or  de- 
vices simultaneously,  print  sheet  music, 
and  also  permits  automatic  transposi- 
tions and  automatic  tempo  conforming 
and  correcting.  You  can  upgrade  the 
standard  version  to  the  advanced  ver- 
sion at  a  nominal  cost. 

Gerry  The  Germ  and  Microcosm  are 
the  newest  in  the  Firebird  Super  Silver 
Disk  Series.  Both  games  feature  music, 
sound  effects,  graphics,  and  animation. 
Gerry  The  Germ  is  a  journey  through  the 
human  body  with  Gerry  as  the  guide. 
In  Microcosm,  the  player  must  defend 
the  agricultural  cargo  of  a  crippled  in- 
terstellar freightliner  against  a  hoard  of 
mutant  insects.  The  games  are  on  one 
flippy  disk  and  require  either  joystick  or 
keyboard  control. 

The  standard  version  of  The  Music 
System  has  a  suggested  retail  price  of 
$39.95  and  the  advanced  version  is 
$79,95.  The  Gerry  The  Germ /Microcosm 
Super  Silver  Disk  Series  package  retails 
for  $19.95. 

Firebird,  P.O.  Box  49,  Ramsey,  NJ 
07U6. 
Circle  Reader  Service  Number  202, 


New  Games  From 
Intellicreations 

Inleliicreations  (formerly  Datasoft)  has 
announced  the  release  of  three  new 
games. 

The  Never  Ending  Story  is  an  adven- 
ture/fantasy game  based  on  the  book 
and  film  of  the  same  name.  Cast  as  the 
hero,  Atreyu,  and  aided  by  Falkor,  the 
luck  dragon,  you  face  the  trials  and 
terrors  of  the  ever-consuming  "noth- 
ing" in  an  illustrated  and  imaginative 


computer  adventure.  The  Never  Ending 
Story  is  now  available  as  a  flippy  for 
Commodore  and  Atari  8-bit  machines 
(Commodore  version  on  one  side,  Atari 
on  the  flip  side),  and  for  the  Apple  II 
computers.  AH  versions  retail  for  $29.95. 

Mind  Pursuit  is  a  test  of  intelli- 
gence, knowledge,  and  trivia  with  three 
levels  of  difficulty.  At  the  simplest  level 
are  true/false  questions;  next  are  multi- 
ple choice;  and  finally,  and  most  diffi- 
cult, are  fill-in-the-blanks.  The  game  is 
designed  with  questions  for  both  adults 
and  children,  and  has  three  difficulty 
levels,  so  the  whole  family  can  play 
together.  Music  and  graphics  clues  are 
also  used  for  variety,  and  provide  fur- 
ther challenges  to  the  game  play.  Addi- 
tional game  disks  are  available.  Com- 
modore and  Apple  versions  retail  for 
$29.95;  add-on  disks  are  $14.95. 

221B  Baker  Street  is  the  address  of 
fictional  super-sleuth  Sherlock  Holmes. 
In  the  game  22  IB  Baker  Street,  you  start 
at  that  address  and  h-avel  through  the 
streets  and  alleys  of  London,  gathering 
clues  that  will  lead  to  the  solution  of 
some  of  the  most  intriguing  cases  ever 
faced  by  Holmes  and  his  assistant.  Dr. 
Watson.  The  initial  game  will  include 
30  different  cases;  two  additional  game 
disks  will  be  available  later,  each  con- 
taining 30  more  cases.  Atari,  Commo- 
dore, and  Apple  versions  retail  for 
$29.95,  with  follow-up  disks  costing 
$14.95  each. 

Intellicreations,  19808  Nordhoff  PL, 
Chaismorth,  CA  91311. 
Circle  Reader  Service  Number  203. 


128  Telecommunications 
And  64  Graptiics 

Progressive  Peripherals  &  Software  has 
announced  two  new  products  for  the 
Commodore  64  and  128. 

For  the  Commodore  128,  BobsTerm 
Pro-128  is  a  menu-driven  communica- 
tions package  that  lets  you  edit  files 
while  it  reads,  writes,  uploads,  and 
downloads  to  any  disk  type  (including 
CP/M).  The  package  supports  VT-100 
and  VT-52  80  ADM-31  (CP/M  type) 
terminal  emulation,  and  includes  a  full- 
screen text  editor,  on-screen  status  dis- 
play, remote  mode,  macro  and  answer- 
back string  functions,  and  a  manual. 
The  program  is  compatible  with  most 
modems  and  works  with  high  speed 
1571  disk  drives,  the  5FD-1001,  and 
Commodore  and  MSD  dual  drives. 

With  Picasso's  Revenge,  you  can 
draw  circles,  squares,  triangles,  and 
many  other  geometric  figures  with  the 
Commodore  64.  This  graphics  package 
has  35  predefined  textures,  five-level 
focus,  and  a  ZOOM  command  that 
magnifies  the  screen  area  eight  times. 
The  program  supports  high-resolution 


drawings  made  with  Koala,  Suncom, 
Paint  Majic,  and  other  commonly  used 
graphics  programs.  It's  compatible  with 
most  dot-matrix  printers  and  prints  in 
nine  shades  of  gray.  The  Picasso's  Re- 
venge package  includes  a  free  light  pen 
and  a  user's  manual. 

BobsTerm  Pro-128  retails  for  $79.95 
and  Picasso's  Revenge  for  $59.95. 

Progressive  Peripherals  &  Software, 
464  Kalamath  St.,  Denver,  CO  80204. 
Circle  Reader  Service  Number  204. 


Amiga  Fonts 

Classic  Concepts  FUTUREWARE  has 
announced  new  type  fonts  for  Amiga 
users  who  need  larger  fonts  for  video 
titling,  graphics,  desktop  publishing, 
and  other  applications.  FUTUREWARE 
FONTS  can  be  used  to  mix  titles  with 
video  images  (with  Genlock)  and  are 
more  clearly  legible  in  high  resolution 
mode  than  fonts  with  the  Workbench 
disk.  The  fonts  are  compatible  wi\h  Note- 
pad, Deluxe  Paint,  Aegis  Images,  and  other 
common  Amiga  software 

Each  package  includes  a  disk  utili- 
ty installation  program,  13  new  fonts, 
and  a  font  reference  booklet. 

Retail  price  is  $14.95,  plus  $1  ship- 
ping and  handling. 

FUTUREWARE  FONTS,  P.O.  Box 
94276,  Richmond,  B.C.,  Canada  V6Y  2A6. 
Circle  Reader  Service  Number  205, 


Apple  II  Science  Software 

Science  Toolkit — Master  Module  lets  you 
perform  real  experiments  with  your 
Apple  computer  and  two  sensory 
probes.  Each  package  contains  an  inter- 
face box,  light  probe,  temperature 
probe,  light  probe  stand,  light  guard, 
two  lab  notebook  labels,  and  a  125- 
page  User's  Manual  &  Experiment  Guide 
that  details  how  to  use  the  probes  and 
the  on-screen  instruments — thermom- 
eter, light  meter,  timer,  and  strip  chart. 

Science  Toolkit — Master  Module  is 
for  the  Apple  lie  and  lie  with  64K  mem- 
ory. Printer  is  optional  and  the  interface 
box  is  included.  Users  should  be  12 
years  old  and  up. 

There  is  a  school  version  which 
includes  a  teacher's  guide  in  addition  to 
the  material  provided  in  the  standard 
package.  For  use  in  grades  4-12. 

The  standard  version  retails  for 
$69.95  and  the  school  version  retails  for 
$89.95.  Anyone  with  the  standard  ver- 
sion can  buy  the  teacher's  guide  sepa- 
rately for  $20. 

Brederbund  Software,  inc.,  17  Paul 
Dr.,  San  Rafael,  CA  94903-2101. 

Circle  Reader  Service  Number  206, 
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From  the  publishers  of  COMPUTE! 


July  1986 
COMPUTE!  Disk 


All  the  exciting  programs  from  the  past  three  issues  of  COMPUTE!  are  on 
timesaving,  error-free  floppy  disks  that  are  ready  to  load  on  your  IBM  PC 
and  PCjr  or  Commodore  64  and  128,  The  July  1986  COMPUTE/ 
Disks  contain  the  entertaining  and  useful  Commodore  or  IBM  programs 
from  the  May,  June,  and  July  1986  issues  of  COMPUTE.'. 

The  July  1986  COMPUTE!  Disk  costs  $12.95  plus  $2.00  shipping  and  han- 
dling and  is  available  only  from  COMPUTE!  Publications.  Please  specify 
whether  you  need  a  Commodore  or  IBM  disk. 

For  added  savings  and  convenience,  you  may  also  subscribe  to  the  COM- 
PUTE! Disk.  At  a  cost  of  only  $39.95  a  year  (a  $12.00  savings),  you'll  receive 
four  disks,  one  every  three  months.  Each  disk  will  contain  all  the  programs 
for  your  machine  from  the  previous  three  issues  of  COMPUTE!. 

This  is  an  excellent  way  to  build  your  software  library  while  you  enjoy  the 
quality  programs  from  COMPUTE!. 

Disks  and  subscriptions  are  available  for  Apple,  Atari,  Commodore  64  and 
128,  and  IBM  personal  computers.  Call  for  details. 

For  more  information  or  to  order  the  July  1986  COMPUTE!  Disk,  call  toll 
free  1-800-346-6767  (in  NY  212-265-8360]  or  write  COMPUTE!  Disk,  P.O. 
Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 
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Atari  COMPUTE!  DISK 

The  first  quarterly  COMPUTE!  DISK 
for  Atari,  containing  the  programs 
from  the  January-March  1986  is- 
sues, has  caused  some  confusion 
among  those  who  received  it.  First, 
the  disk  i^oes  not  contain  a  disk 
operating  system  (DOS)  and  there- 
fore cannot  be  used  to  start  up  the 
computer.  As  the  disk  label  in- 
structs, you  must  boot  your  system 
using  your  own  DOS  disk,  make 
sure  you  are  in  BASIC,  then  put  the 
COMPUTE!  DISK  in  the  drive  and  type 
RUN  "D;MENU".  The  disk  is  in 
Atari  DOS  2. OS  format,  which  can 
also  be  read  by  Atari  DOS  2.5  and 
most  third-party  operating  systems 
such  as  DOS  XL  and  OS/ A +.  Atari 
DOS  3.0  has  an  option  to  convert 
DOS  2.0  files  to  3.0  format.  How- 
ever, if  you're  still  using  DOS  3.0 
you  should  seriously  consider 
switching  to  DOS  2.5  (despite  the 
confusing  numbering,  version  2.5  is 
newer  than  3.0).  DOS  2,5  is  avail- 
able free  from  many  Atari  dealers 
and  user  groups.  It  is  not  possible  to 
write  DOS  files  to  the  COMPUTE! 
DISK  because  it  is  write  protected 
and  because  there  isn't  enough 
room  on  the  disk  for  any  more  files. 

Note,  however,  that  while  the 
COMPUTE!  DISK  is  write  protected,  it 
is  not  copy  protected.  When  you 
receive  the  disk,  you  should  first 
make  a  backup  copy.  (With  Atari 
DOS  2.0  or  2.5,  use  option  J— Du- 
plicate Disk).  Programs  such  as 
SpeedScript  and  SpeedCalc  will  be 
more  useful  if  copied  to  a  disk  that 
contains  the  DOS  system  files. 
(With  Atari  DOS  2,0  or  2.5,  use 
option  0 — Duplicate  File). 

There  is  one  program  on  the 
January-March  Atari  disk  that  can- 
not be  used  as-is  with  Atari  DOS. 
"High  Rise"  was  designed  to  be  a 
boot  disk  file  if  typed  in  from  the 
magazine  using  MLX.  The  verison 
on  the  disk  was  intended  to  be  exe- 
cuted as  a  binary  file,  but  we  failed 


to  explain  that  and  also  failed  to  put 
the  program  on  the  disk  in  the 
proper  format  for  the  Atari  DOS  L 
(Load  Binary  File)  option.  The 
problem  is  easy  to  correct,  though. 
Copy  the  HIRISE.FEB  program  from 
the  COMPUTE!  DISK  to  another  disk 
(preferably  one  that  contains  DOS) 
using  the  O  option  in  Atari  DOS 
2.0/2,5,  then  enter  and  run  the  fol- 
lowing one-line  program; 

10  OPEN  «I  ,  <?,  0,  "D:  HIRISE. 
FEB":PUT  #1,224:PUT  #1 
,2;PUT  #1,225:PUT  #1,2 
:PUT  #1,0:PUT  »1,48:CL 
□  SE  #1 

This  fixes  the  file  so  the  game  can 
be  played  by  going  to  the  Atari 
DOS  2.0/2.5  menu  and  using  the  L 
option.  Specify  HIRISE.FEB  as  the 
file  to  load;  it  begins  running  auto- 
matically after  loading.  You  could 
also  use  the  DOS  menu's  E  option 
to  rename  the  fixed  file  to  AUTO- 
RUN.SYS.  In  that  case,  the  program 
will  load  and  run  automatically 
when  the  disk  is  booted.  If  you're 
using  OS/A-h  DOS  or  DOS  XL, 
you  can  run  High  Rise  simply  by 
typing  HIRISE.FEB  at  a  DOS  Dl: 
prompt,  so  the  above  correction  is 
not  necessary. 

The  January-March  Atari  disk 
does  not  contain  the  programs 
"MLX"  and  "Automatic  Proofread- 
er" because  the  disk  was  too  full  for 
them  to  be  included.  They  appear 
on  the  April-June  Atari  disk  and 
should  be  on  all  future  Atari  disks 
when  space  allows.  We  know  of  no 
special  problems  with  any  of  the 
programs  on  the  April-June  disk. 

64  Autobooter 

The  automatic  loading  technique 
used  in  this  program  from  the  May 
issue  (p.  92)  should  work  fine  for 
the  first  program  autobooted  after 
the  computer  is  turned  on.  However, 
when  autoboohng  more  than  one 
program  in  a  session,  the  routine 


may  fail  if  a  later  autoboot  attempts 
to  load  a  program  shorter  than  the 
one  previously  autobooted.  To  cor- 
rect this,  change  the  following  lines; 

GA  140  IF  S0  519B8  THEN  PRINT: 

PRINT "MISTYPED  DATA": EN 

D 
DF  200  IF  B>7  936  THEN  PRINT  CH 

R$(ie);STR5(B-7936)" 

(2  SPACES }BYTE  OVERFLOW 
":GOTO  160 
CG  550  DATA  57,224,32,176,12,1 

89,16,255 
BE  710  DATA  104,208,11,32,51,1 

65,162,54 
AS  720  DATA  160,2,134,122,132, 

123,162,31 
EF  730  DATA  169,0,157,16,245,2 

02,16,250 
RM  740  DATA  169,13,76,210,255, 

13B,0,0 


Minding  IBM  Memory 

Line  100  in  Program  3  (p.  86)  of  this 
memory  management  utility  in  the 
June  issue  contains  an  error  that 
prevents  the  deallocation  routine 
from  properly  releasing  allocated 
blocks  of  memory.  The  &h85  in 
that  line  should  be  &h8b,  as  shown 
in  the  assembly  listing  for  the  deal- 
location routine  (Program  2). 

Using  PALETTE  USING 

In  Program  2  from  this  article  in  the 
May  issue  (p.  71),  the  AS$  =  "N"  at 
the  end  of  line  80  should  instead  be 

AN$  =  "N". 

Commodore  Loading  and 
Lini<ing,  Part  4 

In  the  example  program  in  the  lower- 
right  corner  of  page  75  in  the  June 
issue,  omit  the  question  mark  in  the 
value  128  in  line  140.  The  question 
mark  was  caused  by  a  printer 
malfunction.  © 
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COMPUTEi's  Guide 
To  Typing  in  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing — "The  Automatic  Proofreader." 

Programs  for  the  IBM,  TI-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard-to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  not  type  the  braces.  For 
example,  {CLEAR}  or  {CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below.  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If 
you  see  {A},  hold  down  the  CONTROL 
key  and  press  A.  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  fcA:^.  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}.  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  fcS  Q>j,  you  would 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 


Wtien    you    see  Type 

t CLEAR >  esc 

lUPy  ESC 

<DO«NJ  ESC 

{leftj  esc 

<:riqht>  esc 

{back  sj  esc 

{delete}  esc 

{insert}  esc 

{del  line}  esc 

{ins  line}  esc 

{TAB>  ESC 

CCLR  TftB}  ESC 

{SET  TAB}  ESC 

{BELL}  ESC 

{ESO  ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  « 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  .TAB 
CTRL  2 
ESC 


See 

t 
4- 


a 
u 
o 
a 

ss 

B 


CI  ear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
ESCape  key 


_      ProM:  See; 

shift]  [clr/homVJ  PJ 

CLEifHOME  I     BSI 


Commodore  PET/CBM/ VIC/64/ 1 28/ 1 6/ +4 

WhenVbu 
Read: 

g3§ 
E4i 
§5§ 
E6^ 
g7i 
%Bi 
{  Fl  ) 
{  F2  } 
(  F3  ) 
{  W  } 
{FS  J 
{F6  1 
{  F7} 
(  F8  ) 
4 


WhenYbu 
Read: 

(CLR! 

{HOME) 

{UP) 

{DOWNj 

{LEFT! 

J  RIGHT} 

jRVS) 

(OFF) 

(blk; 

{WHT} 

{RED} 

{CYNJ 

{PURi 

{CRN} 

{BLU} 

(YEL) 


Press: 

COMMODOTJ]  pr] 


j  SHIFT  ]  j  f  CRSR  1"J  n 

[j_c_RSR  |_"j  [g 

|SHlFr[p-CRSR^'[  Q 

[<-CRSR->|  01 


COMMODORE  |  [T] 


See: 


commodore]  \T\ 


commodore]  jT]  fn 

commodore]  rri  E 

It 


'cTRi"  1  r~ 

CTRl           2 

CTRL           3 

aRL           4 

CTRl 


CTRL 


CTRl  I 


][Z] 


[CTRL  »    '  I 


E9 

m 
□ 

Q 


|comhodore]  |T] 

I  COMMODORE  j]T] 
] COMMODORE  I  [T] 

n    I 


□ 


SHIFT 


\  SHIFT         fi 

(7 

1  SKIFF         n 

(3 
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180    IF    VAL(LEFT»CL»,2) )=0    AND 
MID* (L», 3,1)="    "    THEN    L»=M 
ID«(L»,4) 

200    IF   flSC{L«>>57   THEN  260    "no 
line   number,    there-fare   co 
fTtmand 

205  BL=INSTR(L», '■  "):IF  BL=0  T 
HEN  BL«'=L*:GOTD  206  ELSE  B 
L»-LEFT»(L*,BL-1) 

206  LNUri=VflL(BL*):TEXTS=MID*(L 
♦, LEN (STR* (LNUM) ) +1 > 

210  IF  TEXT»=""  THEN  BOSUB  540 
•IF  LNUM=LNUM(P)  THEN  BOSU 
B  560;BOTO  130  ELSE  150 
220  CKSUM=0:FOR  1=1  TD  LEN(Lt) 
: CKSUM» (CKSUM+flSC (MIDS (L», 
I))tl)  AND  255: NEXT: LOCATE 
Y,1:PRINT  CHR*(65+CKSUM/1 
6>+CHR»C65+(CKSUM  AND  15)) 
+  •■  "+L» 
230  GDSUB  540: IF  LNUM(P)=LNUM 
THEN  L»(P)=TEXT*:GOTO  150 
'replace  line 
240  BOSUB  5S0:BDTO  150  'insert 

the  line 
260  TEXT*="":FOR  1=1  TO  LENCL* 
) : A=ASC (MID*  CL», I ) ) : TEXT»= 
TEXT«+CHR»(A-t-32«(A>96  AND 
A<123)):NEXT 
270  DELIMITER=INSTR(TEXT*,"  ") 
I  C0f1MflND*=TEXTt:  ARB»="  "  !  IF 
DELIMITER  THEN  CaMMAND*=L 
EFT* (TEXTS, DELIMITER-l) :  AR 
H»-M I D» { TEXT* , DEL I MI TER+ 1 > 
ELSE  DELIMITER=INSTR<TEXT 
t,CHR»{34)):IF  DELIMITER  T 
HEN  COMMAND»=LEFT«CTEXT*,D 
ELIMITER-1 ) 3  ARG*=MID» (TEXT 
*, DELIMITER) 
280  IF  COMMAND*<>"LIST"  THEN  4 

10 
290  OPEN  "scrn:"  FDR  OUTPUT  AS 

«1 
300  IF  ARB»=""  THEN  FIRST=0Sp= 

MAX-1:BDT0  340 
310  DELIMITER=INSTR(ARS*,  "-■■): 
IF  DeLIMITER=0  THEN  LNUM=V 
AL ( ARG* ) : GOSUB  540 ! F I RST=P 
sGOTO  340 
320  FIRST=VAL (LEFT* (ARG*, DELin 
ITER) ) :LABT=VAL(MID*(fiRG*, 
DELIMITER+D) 
330  LNUM=FIRST:SOSUB  S40: FIRST 
=P: LNUM=LAST: GDSUB  540: IF 
P=-0  THEN  P=MAX-1 
340  FDR  X»FIRST  TO  P:N*=MID*(S 

TR*(LNUM(X)) ,2)+"  " 
350  IF  CKFLAB=0  THEN  A*="":eOT 

0  370 

360  CKSUM=0:A»=N*+L»{X) :FOR  1= 

1  TO  LEN ( A*  > : CKSUM= ( CKSUM+ 
ASC(MID*(A», I)) tl>  AND  255 
: NEXT: A*=CHR« (65+CKSUM/ 16) 
+CHR»(6S+(CKSUM  AND  15))+" 

tl 

370  PRINT  #1,A*+N»+L*(X) 

3B0  IF  1NKEY*<>""  THEN  X=P 

390  NEXT  : CLOSE  #1:CKFLAB=0 

400  BOTO  130 

410  IF  C0Mf1fiND*="LLIST"  THEN  0 

PEN  "Iptl:"  FOR  OUTPUT  AS 

«1:B0T0  300 
420  IF  CDMMAND*=" CHECK"  THEN  C 

KFLflG=l:B0TO  290 
430  IF  COMMAND* <>" SAVE"  THEN  4 

50 

440  BOSUB  600: OPEN  ARG*  FOR  OU 
TPUT  AS  «lsARB*="":BOTO  30 
0 

450  IF  CQMMAND*<>"LOftD"  THEN  4 
90 


460  BOSUB  600: OPEN  ARG*  FOR  IN 

PUT  A3  »lsMAX-=0:P=0 
470  WHILE  NOT  EOFtl);LINE  INPU 

T  »1,L«:BL=INSTR(L»,"  "):B 

L*=LEFT« (L», BL-1 ) ! LNUM (P) = 

VAL (BL») ! L« (P) =MI D» (L*. LEN 

(STR* ( VAL (BL*) ) ) +1 ) : P=P+1 ; 

MEND 
480  MAX=P: CLOSE  *1:B0T0  130 
490  IF  COMMAND*="NEW"  THEN  INP 

UT  "Erase  program  -  Are  yo 

u  «ure"!L*sIF  LEFT*(L*,1)= 

"y"  OR  LEFT»(L»,1)="Y"  THE 

N  MAX-0I LNUM (0) =65536 SsOOT 

0  130: ELSE  130 
500  IF  COMMAND»=" BASIC"  THEN  C 

OLDR  7, 0,01  ON  ERROR  BOTO  0 

sCLS:END 
510  IF  COMMAND«<>"FILES"  THEN 

520 
515  IF  ftRJj*=""  THEr-:  fiRSS^'A:  " 

ELSE  SEL-1: GOSUB  600 
517  FILES  ARB«:SOTO  130 
520  PRINT-Syntax  error" 5 GOTO  1 

30 
540  P=0: WHILE  LNUM>LNUM(P)  AND 

P<MAX : P-P+1 : WEND J  RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAX:L 

NUM ( X ) =LNUM  C  X+1 ) I L* ( X>  =L» ( 

X+1): NEXT: RETURN 
580  MAX=MAX+1:F0R  X=MAX  TO  P+1 
STEP  -liLNUM(X)=LNUM(X-l) 

:L»(X)=L*(X-1) :NEXT:L*(P)= 

TEXT*: LNUM (P) "LNUM : RETURN 
600  IF  LEFT«(ARB«, 1)<>CHR*(34> 
THEN  520  ELSE  ARB»-M1D«(A 

Ra«,2) 
610  IF  R1GHT*(ARB«,1)=CHR*(34) 
THEN  AR8*=LEFT«(ARS«,LEN( 

ARB»)-t) 
620  IF  SEL=0  AND  I NSTR ( ARB* , " . 
")=0  THEN  ARe»=ARB»+".BAS" 
630  SEL=0: RETURN 
640  CLOSE  «l:CKFLflB=0:PRINT"St 

opped.": RETURN  150 
650  PRINT  "Error  #"; ERR: RESUME 
150 

Program  3:  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10*VEC=PEEK(772)+256*PEEK(773) 

:L0=43!HI=44 
20    PRINT    "AUTOMATIC    PROOFREADE 

R   FOR    ",-;IF  VEC=42364    THEN 

{SPACE}PRINT    "C-64" 
30    IF   VEC=50556    THEN    PRINT    "VI 

C-20" 
40    IF   VEC=3S158   THE^f    GRAPHIC    C 

LR: PRINT    "PLUS/ 4    &    16" 
50    IF   VEC=17165    THEN   1,0=45  :HI  = 

46:GRAPHIC    CLR:PRINT"128" 
60    SA=(PEEK{LO)+256*PEEK(HI))+ 

6:A0R=SA 
70    FOR  J=0   TO    166: READ    BYT:POK 

E    ADR, BYT: ADR=ADR+1 : CHK=CHK 

+BYT:NEXT 
80    IF   CHKO20570    THEN    PRINT    "* 
ERROR*    CHECK    TYPING    IN    DATA 
STATEMENTS": END 
90    FOR  J=l    TO   5iREAD    RP,LF,HFt 

RS=SA+RF:HB=INT(RS/256) !LB= 

RS-C256*HB) 
100    CHK=CHK+RF+LF+HF:POKE   SA+L 

F, LB: POKE    SA+HF , HE : NEXT 
110    IF   CHK<> 22054    THEN    PRINT    " 

•ERROR*    RELOAD    PROGRAM    AND 


[SPACE} CHECK    FINAL    LINE": EN 
D 
120    POKE   SA+149,PEEK(772) :POKE 

SA+150,PEEK(773) 
130    IF   VEC=17165    THEN    POKE   SA+ 
14, 22; POKE    SA+18, 23 : POKES A+ 
29 , 224 :POKESA+139 , 224 
140    PRINT    CHRS(147) rCHR5{17) ;" 

PROOFREADER   ACTIVE": SYS    SA 
150    POKE   HI, PEEK ( HI )+l! POKE    (P 
EEK(LO)+256*PEEK(HI ))-l,0 :N 
EW 
160    DATA   120,169,73,141,4,3,16 

9,3,141,5,3 
170   DATA  88,96,165,20,133,167, 

165,21,133,168,169 
180    DATA    0,141,0,255,162,31,18 

1,199,157,227,3 
190    DATA   202,16,243,169,19,32, 

210,255,169,18,32 
200    DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210    DATA   200,185,0,2,240,46,20 

1,34,208,8,72 
220    DATA    165,176,73,255,133,17 

6,104,72,201,32,208 
230    DATA   7,165,176,208,3,104,2 

08,226,104,166,180 
240    DATA    24,165,167,121,0,2,13 

3,167,165,168,105 
250    DATA    0,133,168,202,208,239 

,240,202,165,167,69 
260    DATA    168,72,41,15,168,185, 

211,3,32,210,255 
270   DATA   104,74,74,74,74,168,1 

85,211,3,32,210 
280    DATA    25  5,16  2,31,189,227,3, 

149,199,202,16,248 
290   DATA   169,146,32,210,255,76 

,86,137,65,66,67 
300    DATA   68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310    DATA    13,2,7,167,31,32,151, 
116,117,151,128,129,167,136 
,137 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial  Programmer 

10   C    =   0:    FDR    I    =    768   TO    768   + 

68:    READ   fljC  =   C  +  A:    POKE    I 

,A!  NEXT 
20  IF  C  <  >  725B  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  9TAT 

EMENTS"!  END 
30  IF  PEEK  (190  »  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002:  BOTO  50 
40  PRINT  CHR*  (4)}"lN»A«3a0" 
50  POKE  34,0:  HOME  :  POKE  34,1: 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,235 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
1S0  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  "» 
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key  {Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
limes.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
row (-)  symbol  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memory.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Automatic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC'20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT 
USR(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  tj'ping  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
chtcksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the- right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl- Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  " filename" , A. 


Program  1:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 

100  GRAPHICS  0 

110  FOR  1=1536  TO  1700;REA 

D  As  POKE  I, A: CK=CK  +  A:N 

EXT  I 
120  IF  CKO1707Z  THEN  ?  "E 

rrar    in  DATA  Statement 

s.   Check  Typing.  '■:  END 


130 
140 


150 
160 


170 
1S0 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


A=USR ( 1336) 
?  :  ?  ■■  Automat : 
eadar  Now  Act: 
END 

OATA  104,160,1 
3,201,69,240,-: 
DATA  200,200, 1 
8,243, 96,200, i 
DATA  153,26,3, 
6,  153, 26, 3,  16: 
DATA  0, 189, 0,; 
4,6, 232,224,  li 


ic  ProQfr 
ivated. " 

0, 185, 26, 
7 

192,34,20 
169,74 
200, 169, 


92,  40 

165,203,7 
t,  105 

3, 145, 8B, 
i,24 

200, 145,8 
10Z, 104 

168, 104, 4 


Program  2:  IBM  Proofreoder 

By  Charles  Brannon,  Program  Editor 

10  'flutofnatic  Proofreader  Vers 
ion  3.0  <Line5  205,206  adds 
d/190  deleted/470,490  chang 
ed  -from  V2.0) 
100  DIM  L* ( 500 ),LNUM( 500 ): COLO 
R  0,7, 7; KEY  aFF:CLS:MAX=0: 
LNUM<0) =65536! 
110  ON  ERROR  GOTO  120: KEY  15, C 
HR»(4)+CHR»(70):ON  KEY (15) 
BOSUB  640: KEY  (15)  ON: SOT 
O  130 
120  RESUHE  130 

130  DEF  SE6=8«H40:W=PEEK(8(H4A) 
140  ON  ERROR  GOTO  650; PRINT: PR 

INT"PrQof reader  Ready. " 
150  LINE  INPUT  L*:Y=CSRLIN-tNT 

(LENCL»)/W!-l: LOCATE  Y,  1 
160  DEF  SEe=0:PaKE  1050,30:POK 
E  1052,34sPOKE  1054,0!POKE 
1055, 79! POKE  1056, 13: POKE 
1057, 28: LINE  INPUT  L*:DEF 
SEQ:IF  L«=""  THEN  150 
170  IF  LEFT*<L», 1)="  "  THEN  L« 
=MID«(L*,2) :GOTO  170 
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COIVIIVIODORE  *ATTARI  *IBIVI  *  APPLE 


MONITORS 


COLOR 
COMPOSITE 


(RGB'S  Available) 


300 
BAUD 


PRINTER 


MODEMS 


$2800 

sggoo 


NLQ  PRINTER 


1200 
BAUD 


EPSON 

WARRANTED 


.       RETAIL 
^6^        $200"° 

$QQOO 


•  I 


FREE  TRIAL  PERIOD 


EPSON 
WARRANTED 


NEAR  LETTER  QUALITY 

■  O'*!^    RETAIL  S299  00 

$13900 


DISK  DRIVES 


COMREX  CR20-A 


PLUS/4 


1541 
COMMODORE 


$1491 


COMMODORE 
COMPUTER 

INCLUDES 

BUILT-IN 

SOFTWARE 

for  ward  processing, 

fiie  management, 

spreadsheets 

and  128  co/or  graphics! 


64  POWER  SUPPLY ELECTRIC  TYPEWRITER 


m 


00 


^        RETAIL  $1200  00 


IB 

SELECTRA  II 


00 


FREE  TRIAL  PERIOD 


PRO-TECH-TRONICS_ 

6870  Shingle  Creek  Parkway  #103  •  Minneapolis,  MN  55430  •  (612)  560-6603  J^^ 

•IN  STOCK  ITEM 


NFYT-DAY  DELIVERY— 

CALL  TODAY  "«-'"»     t^r^t    L^i.i.f  r  1.1 1  i  SCHOOL  P.O.'s  Accepted! 


1 -8QQ-345-5080 


Expert  Back-up  for 
Atari  Users. 


SPEOALIZINC  IN 
BACKUP  HARDWARE 
&  SOFTWARE 


THE  1050  DUPLICATOR:  The  most  powerful  diskdrive 
copy  system  ever  developed  for  the  ATARI. 


The  only  Copy  system 
You  will  ever  need. 

What  will  if  do? 

^The  wain  purpose  or  Ih0  Duplicator  It  to  copy  aitksl  You  will  be 
ob/e  tocopyjust  atxiut  any  aiskl  The  copies  you  moke  will  run  on 
any  Atari  drive-  The  Duplicotor  need  not  be  preieni  to  run  your 
bocltup  copies.  The  tXiplicotor  is  fully  automatic-  You  need 
only  insert  source  and  destination  disks  Custom  tormots  will 
be  read  and  in  turn  reproduced  on  the  backup  copy  disli. 
Our  device  wilt  reproduce  any  custom  format  or  fieovi'V 
copy  guarded  scheme,  cxjd  sectors,  double  sectors. 
19  through  24  sector  fo'mat  will  present  no  problem 
to  the  Duplicator. 

^Vou  will  ttlll  havB  single  density,  density  and 
one  half,  and  double  density.  When  you  have  a 
Duplicotor  installed  in  a  1050  drive  that  drive  will  be 
turned  into  true  double  density.   Ycu  will  hove  fwice 
the  disk  storage.  Your  drive  will  be  compatible  with  other 
tfouWe  density  drives  as  The  l?ano  Indus.  Percom.  etc. 

HARDWARE  POWER 

Fully  Compatible  with  the  XL  &  New  XE  Series 


High  speed  read  A  write.  Your  disk  drive  will  read  and  load 

all  of  your  software,  saving  wear  and  tear  on  your  drive.  The 

1050  drive  now  reads  one  sector  at  a  time.  This  is  slow  and 

inefficient  With  ttie  duplicator  installed  you  will  be  able 

to  read  eighteen  sectors  In  the  time  It  takes  standard. 

unenhanced  drives  to  tead  one. 

Included  with  every  Duplicator  will  be  titer 

friendly  disk  software.  A  simple,  menu  driven 

program  will  allow  you  to  copy  all  of  your 

software.  A  Duplicator  enhanced  drive  v/ill 

be  o  SMART  drive.  We  plan  to  write  many 

new  and  exciting  programs  that  con  only  tie 

run  on  on  enhanced  drive,  eg.  sending  a 

copy-guarded  disk  over  the  phone.  Since  the 

drive  is  now  fully  programmable,  future  upgrades 

con  be  made  available  to  you  on  disks,  should  thie 

need  arise.  No  further  hardware  changes  will  ever  be 

needed-  The  Duplicator  comes  with  a  full  hardware  and 

software  guarantee. 

jf,  ^j     ^  ^^  g^  M    'Ouphcaior  price  may  increaso  ttue  to 

1/      I  ^H  J  Plus  S3  SO  to:  Snipping  S  Handling 
AM  7%  ouiside  US. A 
H  r  State  Henaant;  ocfcf  /•■.■%  Sotm  Tot 
'Desle/  inqu.rjos  oro  welcome,  call  for  quorilily  firice  Quota 


EASY  5  MINUTE  INSTAUATION 

NO  HARM  TO  YOUR  DRIVE  OR  INCOMPATIBILITY  PROBLEMS  CAN  ARISE  AS  A  RESULT  OF  THE  INSTALU^^TION  OF  OUR  DUPLICATOR. 


Ihe 


520  ST  Copy  Progmm 

THE  ST  DUPLICATOR™ 

Our  famous  1050  DUPLICATOR  has  been  converted  to  service 
ATARI'"  520  ST  II  is  a  soltware  only  disc  copy  system. 

You  can  now  back  up  heavily  copy-guarded  and  prolected  discs 
Presently,  we  can !  Iind  anything  the  ST  DUPLICATOR  will  no!  copy.  And 
i(  new  forms  of  software  protection  should  appear  on  trie  market,  we  wi 
provide  software  upgrades. 

ST  DUPLICATOR 


INCLUDES  USER 
FRIENDLY  SOFTWAHE 
ANO  INSTRUCTIONS 


DENSITY  "DOUBLER" 

1050 

DOUBLE  THE  POWER... 

TRIPLE  THE  SPEED... 

Get  TRUE  double  density,  full  compati- 
bility witli  any  DOS,  Now  store  twice 
as  much  data  on  each  disk.  Read  and 
write  up  to  3X  faster  in  single  or  double 
density  (Whole  Track  Buffering). 
Includes  ultra-speed  software,  simple 
plug-in  PC  board 
No  soldering  or 
cutting  required. 


$5995 

Plus  S3  SO  Shipping 
Ada  7%  Oulside  USA 


THE  HACKER'S  TREASURE  CHEST  On  Disk 

1 8  Utility  Programs  on  disk.  Each  program  is  specifically  designed  to  aid  you 
in  bac king-up  your  software  collection.  You  will  be  able  toduplicate  disks, 
cartridges  and  cassettes.  Any  one  program  is  worth  the  price  of  all  18,  It 
has  taken  us  over  one  year  to  put  together  Ifiis  fine  collection  on  the 
Hacker's  Treasure  Chiest  disk  Some  of  the  programs  you  will  receive  are 
Cartridge  Copy,  Boolape  Maker,  Tape  lo  Disk,  SectorCopy,  The 
Unprolector,  Sector  Disassembler,  Bad  Sector  Finder,  Modem 
Program...  plus  more.  All  of  these  programs  plus 
10  more  on  this  disk.  You  will  also  receive  a  menu 
that  will  run  basic  and  binary  flies  just  by  typing  the 
number  of  the  orogram  Any  file  on  any  disk  wili  load 
automatically  Irom  this  menu.  ALL  FOR  ONLY 


Eior  i-inaer,  Moaem 

$3495 

PlusS3.50  Shipping 
Am  7%  autside  USA 


$5995 


Piys  SSSQ  snipping 
Add  ^'^  oulstde  US  A. 


WRITE-RIGHT 

This  device  will  allow  you  to  write  to 
side  2  of  any  disk.  Install  this  box  to 
your  ATARI""  1050  in  5  minutes.  Just 
plug  in  one  cable  -  no  cutting  or  solder- 
ing required.  Push  a  button  and  a  LED 
will  lighl,  allowing  you  to  write  lo  a  disk 
without  notching  out  a  hole  in  the  disk. 
Easy  plug-in  inslal- 
lation.  Instructions 
included.  Fulfy 
teaed&assemWeci. 


'Ut  a  hole  in  the  disk. 

$2995 

Plus  S3  50  Silipping 
Add  Tib  outside  US  A 


CART  CLONE"" 

COPY  ANY  ATARI"  CARTRIDGE 

A  MUST  FOR  ALL  ATARI™  USERS 
CART  CLONE  will  backup  and  trans- 
fer any  8  or  16k  cartridge  to  disk  or 
tape.  The  contents  of  the  cartridge  will 
become  a  tile  which  you  can  transfer, 
rename  or  delete.  They  will  execute 
from  DOS,  No  need  to  run  a  special 
menu  or  program  to  run  these  files  it 
goes  in  the  left  cartridge  slot  enabling  It 
to  work  in  ad  ATARI™  Home  Computers 
including  the  XL 
series.  You  can  get 
CART  CLONE" 
with  software  lor 


11    Home  Computers 

$5995 


^^Constantly  Working  on  New  Products  and  Software. 

DUPLICATING 


Pius  S3  50  Stripping 
Add7%ou!side  USA 


TECHNOLOGIES 

Formerty  Gardner  Compulfng 

99  Jericho  Tpke.,  Suite  302A  Jericho.  N.Y.  1 1 753 


inc. 


ISfe"oS^  (516)  333-5504,  5950 


oS^oNiy  (516)  333-5805,  5807,  5808 

ORDERS  ONLY      (516)  333-5950        I    i"« 


TIRMS:  we  accept  American  f.pfan  Visa  MoiterCard  ana  COD  orders-  foreign  araeis  mwr  6e  in  US  Oollois  All  (lersonal  chec*s  allow  U  days  to  clear.  Most  itgtns  st^ippea  within  24  noun. 


CONVERSE  WITH 
YOUR  COMPUTER 


AT  LAST!  A  FULL  IMPLEMENTATION  ol  Ihe  orijinal  ELIZA  program 

is  now  available  to  run  on  your  personal  compuleri 

Crealad  al  MIT  in  1966,  ELIZA  Has  become  the  world's  mosl 

cele&faled  srtilicial  intelligervce  demonsualion  program,  ELIZA  is  a 

non-d'TBCIixe  psycriotherapist  wrio  anal^ies  each  stalemeni  as  you 

lypeitinandthen  responds  wilh  her  own  commenl  or  question— and 

her  remarks  are  often  amaiingly  appropnate' 

Designed  to  run  on  a  large  mamlrame.  ELIZA  has  never  betora  been 

anilable  to  personal  compulei  users  e»cep«  m  greatly  stripped  down 

versions  iaclting  the  sophistication  whicn  made  the  original  program 

so  fascinating. 

Wow,  our  new  personal  computer  version  possessing  the  FULL  power 

and  range  ol  ejpression  of  the  original  Is  being  offered  at  the 

inlioduclory  puce  of  only  $45-  And  to  let  yoo  find  out  how  she  does  il 

lor  leach  her  to  do  morel  we  have  included  the  complele  SOUfiCE 

PROCBAM  (written  in  BASICl  at  no  e«lra  cost 

Order  your  copy  of  ELIZA  today  and  you'll  never  again  wonder  how  to 

respond  when  you  hear  someone  say.  "Okay,  let's  see  what  this 

computer  ol  yoors  can  actually  do'" 

READ  WHAT  THE  EXPERTS  SAT  ABOUT  OUR  VERSION  OF  ELIZA: 

"Much  more  than  a  mere  game  .  You'll  be  impressed  with  ELIZA  .A 

convincing  demonstration  cl  Artificial  Inselllgence. " 

-PCUtGAZINC 

"DeliQhtful  entertainment, .-An  irjeal  medium  for  showing  oil  yo^r 

lyiiem'  -uKnocoMPUTina  mGum 

'ELIZA  Is  an  astounding  piece  of  software    ,  A  lascinatmg  program  10 
use  and  study,"  -BARONS  MICflOCOMPUrEfi  flfPOOrS 

'ELIZA  isa  great  waylo  Iniroducejour  friends  to  computers, ,  A  very 
tunny  party  game,"  -PETER  A.  UcWILUAUS 

"ELIZA  15  an  exceptional  program,  one  that's  fun  lo  use.  shows  oft 
vour  machi  ne,  and  has  great  historical  interest," 

-  POPULAR  COUfilTlNS  MAGAZINE 
"This  version  of  ELIZA  is  the  best  we  have  seen.  As  a  party  game,  it  is 
unmatched."  -HOME  APPLICATIONS  FOR  THS  C-64 

ELIZA  IS  AVAIUBLE  IN  THE  FOLLOt*ING  FORMATS: 

•  IBIiit  PC.  PCjr..  PC-  XT  and  all  compatibles 
■  All  Apple  II  computers  <ll.  II  Plus.  tie.  Ucl 

•  Apple  Macinlosh  (Microsoft  BASIC  rerjulredl 

•  Commodore  64  (speedy  disk  or  cassette) 

•  5Vi  ircn  or  8  inch  disk  for  ail  CP/M  systems 

All  versions  are  H5  and  include  a  sn  page  users  manual 

Please  atfd  $2  00  shipping  and  handling  to  all  orders 

(Calilornia  residents  please  add  6'A%  sales  lax) 

AFITIFICIAL  INTELLIGENCE  HESEAHCH  GROUP 

921  Nonh  La  Jolla  Avenue,  Oept.M 

Los  Angeles,  CA  90046 

1213)656-7366    (213)654-2214 

MC,  VISA  and  checks  accepted 


Commodore  64  OnlV 

SOFTWARE  $4/Disk 

The  Best  Public  Domain  Software  f  rofn  64  Gold 

LI  Printed  Directory  (93  disks) S2.95 

Games,  utilities,  and  more  software 

0  Five  disk  sampler  Willi  directory SIS. 95 

Best  Games  from  England 

:_]  102  Software  Pirales,  Triads,  Bnckbuster, 

Stellar  Sirike,  Space  Arena      SA 

Space  Games 

"1  85  Starwars,  Slartrek.  Eliza,  Easy  Dungeon. 

Planel  Probe.  Deep  Space  S4 

Adam  Hsndliall,  Grade  Booii,  Matif,  Typing  Tutor 

n  79  Education,  games,  utililies    S4 

Communications,  BBS  lister,  disk  doctor 

LI  94,95  Best  ulililies  (2  disks)       S6 

directory  Sort  and  function  lieys,  recover  files 

lj  bo  Cockroach S4 

LI  S6  FasI  copy  (4  (minules)   S4 

BULK  DISKS  59<  EACH 

Foolish  to  pay  more. 
Dangerous  to  pay  less. 

•  Ouality  media  •  Lilehme  repiacementguarantee 

•  Wnle  prolecl  talis     •  Hub  ringsardTyvec  en^lop«s 
Quaniity  Item  I -50      51-       Amounl 

5,25  "SSOD    .69        .59 

5.25"  DSDD    .79         .69       

Add  S4  sfiipping  S  handling  per  order  Each  additional  100 
disks  add  S3  CA  residents  add  6.5°..  sales  lax. 

Amount  enclosed  S LJ  Ched*  G  VISA  l  MasterCard 

Card  No 

Signature Exp.  Dale 

Pfiene  ( ) 

Nat™ 

Address 

Oily Stale Zip 

Call  toll  free  800-431-6249  In  Calif.  415-550-0512 

j4lb.BLACKSHIP 

^aBr    COMPUTER  SUPPLYflio3 

P.O.  Box  863362  San  Francisco,  CA 94188 


Classified 


SOFTWARE 


LOTTO  PICKER.  Improve  your  chances  for  those 
Million  Dollar  Jackpots!  Piclcs  LOTTO,  WIN -4 
ancd  Daily  Numbers.  All  USA  &  CAN.  games 
ind'd.  Expaniiable!  IBM/C64/T199  $29.95.  Order 
Now!  1-800-341-1950  exl.  77.  Mail  Ordtjrs: 
Ridge,  170  B'way,  #201C,  NY,  NY  10038.  Catalog. 

FREE  SOFTWARE  for  C64,  C128,  IBM,  &  CFM. 
For  info  send  self-addressed,  stamped  envelope 
to:  PUBLIC  DOMAIN  USERS  GROUP,  PO  Box 
1442-Al,  Orange  Park,  FL  32067 

T1-99/4A  QUALITY  SOFTWARE  for  Business, 
Home  and  Entertainment  "  Bonus  Software 
Offer!  ••  Send  for  FREE  catalog  to  MICRO- BIZ 
HAWAII,  BOX  1108,  PEARL  CITY,  HI  96782 

COMMODORE:  TRY  BEFORE  YOU  BUY.  Top  25 
best-selling  games,  utilities,  new  releases.  Visa, 
MasterCard.  Free  brochure.  Rent-A-Disk,  908  9th 
Ave.,  Huntington,  WV  25701  (304)  522-1665 

DISCOUNT  SOFTWARE;  Amiga/Apple/ Atari/ 
C64-128/IBM  PC-PCjr/TRS-80/Timex/Sindair. 
Free  Catalog:  WMJ  DATA  SYSTEMS, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

Genealogy  Programs  for  the  54  &  128.  Family 
Tree  will  produce  Pedigree  Charts,  Fatnily  Group 
Records,  Individual  Files,  Indexes,  Searches  of 
Ancestors.  LDS  version  available.  $49.95 
Genealogy  Software,  POB  1151,  Port  Huron,  Ml 
48061,  (519)  344-3990 

FREE  SOFTWARE  CATALOG 

for  APPLE,  ATARI,  C64,  IBM,  ST  -  1/3  OFF 
retail  prices.  We  carry  SSI,  Infocom,  Elec.  Arts, 
MicTOprose,  and  many  more.  TEVEX,  Dept.  C, 
1710  Wilwat  Dr.  #E,  Norcross,  GA  30093 

LINCAD,  CALCAD,  FFT-SPECTRUM  ANALYSIS. 
VALUABLE  PROGRAMS  FOR  ELECTRONIC 
CIRCUIT  OR  SIGNAL  ANALYSIS  &  DESIGN. 
LINCAD  FOR  LINEAR  CIR.-C64:$49,  IBM- 
PC:$99.  CALCAD  FOR  LOGIC  ANALYSIS  -I- 
SYNTHESIS  -  IBM-PC:$179.  FFT  ANALYZER  • 
C64:$49,  IBM-PC:S99.  +$3.50  S/H.  OH  RES. 
ADD  5.5%  TAX.  CHECK  OR  M.O.  WRITE  FOR 
DETAILS.  SOFCAD  ELECTRONICS,  INC.,  PO 
BOX  21845,  COLUMBUS,  OH  43221 


HEY  AMIGOI  PD  Software  for  Amiga.  Games, 

graphics,  utilities,  more!  Over  15  disks 
available  only  S7.95  each!  SASE  for  list. 
Casaware,  PO  Box  1646,  Orange  Park,  FL  32067 


WIN  AT  CASINO  BLACKJACK!  Disk  includes 
game,  play  analyzer  and  powerful  point  count 
system.  Proves  itself  on  your  machine.  For  IBM- 
PC  (no  graphics  card  req'd).  Atari  800 
(48K)/XL/XE.  Specify.  $19.95.  BISONSOFT, 
Box  2136,  Bloomington,  IN  47402 


$  LUCKY  LOTTO  S  —  Lotto  pgm  for  all  states. 
Over  2  yr.  R&D.  For  64K  +  disk.  IBM,  CoColI, 
C64,  Tan.  1000,  $49.95  -I-  $5  s/h  to;  Delta,  POB 
968,  Concord.  NC  28026  (spec  st.) 

TANDY  1000  PROGRAMS  AND  NEWSLETTER 
Send  for  free  information  on  educational  & 
entertainment  programs  &  newsletter.  Soda  Pop 
Software,  POB  653,  Kenosha,  WI  53141 

REAL  PINOCHLE,  Double-deck,  4-handed, 
partnership  for  one  player.  For  C64,  PC,  PCjr. 
On  disk  $20.  Jim  Bernard,  301  Forest  Dr., 
Bellevue.  NE  68005 

BRIDGE  GAME  PROGRAM  $39.95  demo  disk  $5. 
1  to  4  players  for  IBM,  Apple,  TI99,  TRS80,  C64, 
128,  -1-4,  16,  VIC.  Authors  John  &  Lynda  Allan, 
Box  313,  Azilda.  Ontario,  Canada  POM  IBO 

Animal  Records  maintained  with  Peligree  for 

the  C64.  Produces  Litter,  Awards,  Breeding, 
Show,  Individual  Records,  Pedigree  Charts. 
$69.95.  Genealogy  Software,  POB  1151, 
Port  Huron,  MI  48061,  (S19)  344-3990 


FREE!  PC  PUBLIC  DOMAIN  SOFTWARE! 
MS-DOS,  IBM  &  Compatibles  ■  Save  $$$ 
@  $2.50  per  disk!  Free  info:  AP-JP,  Inc., 
PO  Box  1155,  W.  Babylon,  NY  11704 


HARDWARE 


ASSEMBLE  YOUR  OWN  JOYSTICKS  &  SAVE  $$ 

Kits  available  for  IBM,  Apple,  Commodore, 
Atari,  TI99/4A.  SchemaHcs,  plastics, 
cables,  components  included.  Send 
$24.95  for  Apple  or  IBM,  S12.95  for 
TI99/4A,  $9.95  for  Commodore/Atari. 
JOYSTICK  KITS,  BOX  8248,  LONGVIEW,  TX 
75607     214-758-0040.  Specify  Computer  type. 

REPAIR  YOUR  OWN  JOYSTICKS  &  SAVE  $$ 

Repair  kits  available  for  P.P.I,  i  TG 
Product  Joysticks.  Send  $1  and  SASE  for 
Parts  &  Price  List.  JOYSTICK  KITS,  BOX 
8248,  LONGVIEW,  TX  75607  214-758-0040 


MISCELLANEOUS 


IBM  PCjr.  REPORT:  THE  NATIONAL  NEWS- 
LETTER PCjr.-spedfic  articles,  reviews,  Public 
Domain  from  across  the  nation.  $18/yr. 
PCjr.  CLUB,  POB  95067,  Schaumburg,  IL  60195 

MIDWEST  COMMODORE  CONFERENCE/EXPO 

C64,  C128.  AMIGA  -  AUG.  9  <&  10,  1986  - 
$20/person.  Greater  Omaha  Commodore  Users 
Group.  PO  Box  24115,  Omaha,  NE  68124 

FLIGHT  SIMULATOR  II  CONTROL  CONSOLE 

Complete  set  of  plans  for  aircraft-style 
controls  and  panel.  C64.  $15  to;  FLIGHT 
SYSTEMS,  Rte  2,  Box  121,  Gaston,  OR  97119 


CXDMPUTE!  Classtlied  is  a  fow-cost  way  to  tell  over  350,000  microcomputer  owners 
about  your  product  or  service. 

Rales;  $25  pi-r  linrr,  minimum  of  four  lines.  Any  or  all  of  the  (irsl  line  stt  in  capilal  letters  al  no  charge.  Add  $15 

per  line  (or  boldface  words,  or  $50  for  the  entire  ad  set  in  boldface  (any  numlwr  of  lines, ]  Inquire  about  display 

rales. 
Terms:  Prepayment  is  reijuired.  Check,  money  order,  American  Express,  Visa,  or  MasterCard  is  accepted.  Make 

checks  pavable  to  COMPUTE!  Publications. 
Fomi:  Ads  are  subject  lo  publisher's  approval  and  must  be  either  typed  or  legibly  printed.  One  line  equals  40 

letters  and  spaces  between  words.  Please  underline  words  to  be  sel  in  boldface. 
General  Intwmation;  Advertisers  using  post  office  box  numbers  in  Iheir  ads  mu.st  supply  permanent  address  and 

telephone  numbers.  Orders  will  not  be  acknowledged.  Ad  will  appear  in  next  available  issue  after  receipt. 
Closing:  lOlh  of  Ihe  third  monlh  preceding  cover  date  (e.g.,  June  issue  closes  March  10th).  Send  order  and 

remittance  lo;  Harr;-  Blair,  Classified  Manager,  COMPUTE!.  r.O,  Box  5406,  Greensboro,  NC  27403.  To  place  an 

ad  by  phone,  call  Harrv  Blair  al  (9191  275-9809, 
Notice:  COMPUTf!!  Publications  cannot  be  responsible  for  offers  or  claims  of  advertisers,  but  will  attempt  10  screen 

out  misleading  or  questionable  copy, 


Save  Your 
Copies  of 
COMPUTE! 

Protect  your  back  issues 
of  COMPUTE!  in  durable 
binders  or  library  coses. 
Each  binder  or  case  is 
custom-made  in  flag-blue 
binding  witli  embossed 
white  lettering,  Each  holds 
a  year  of  COMPUTE!.  Or- 
der several  and  keep 
your  issues  of  COMPUTE! 
neatly  organized  for  quick 
reference.  (These  binders 
make  great  gifts,  too!) 


Binders  Cases: 

$8.50  each;  $6.95  each; 

3  for  $24.75;  3  for  $20.00; 

6  for  $48.00  6  for  $36.00 

(Please  add  $2.50  per  unit 
for  orders  outside  the  U.S.) 

Send  in  your  prepaid  order 
with  the  attached  coupon 


Mail  to:  Jesse  Jones  Industries 
P.O.  Box  5120 
Dept.  Code  COTE 
Philadelphia,  PA  19141 

Please  send  me COM- 
PUTE! n  cases  n  binders. 
Enclosed  is  my  check  or  money 

order  for  $ .  (U.S.  funds 

only.) 

Name 

Address 

City 

State 


Zip 


Satisfaction  guaranteed  or  money 

refunded. 

Please  allow  4-6  weel<s  for  delivery. 


LIMITED  SUPPLY  of  ULTRA  FAMOUS 

64K  COMPUTERS 

AT  FAR  BELOW  DEALER  COST! 


•  64K  Computer 

•  Disk  drive 

•  ROM  cartridge  port 

•  COLOR  monitor 

ALL  in  ONE  easy- 
to-carry  system! 


Carries 
easily  as 
a  surf- 
case.' 
Plugs  Into 
IISV 
outlet! 


THOUSANDS  of  programs  available  for 
business,  education,  personal  home  use.' 


Factory 

Reconditioned 

witii  Factory 

Warranty! 


Their  64K  home  computer  is  such  a  HUGE  SUCCESS, 
the  famous  U.S.  manufacturer  decided  to  introduce 
this  all-in-one  TRANSPORTABLE  model! 

Sorry,  we're  NOTpermiUedto  print  the  famous  brand  name.  But  we  can  provide 
additional  details  by  phone:  Toll-Free:  1-800-328-0609 


FOfl  BUSINESSI  Ideal  entry  level  computer  lor  word 
processing,  data  base,  accounts  payable/re- 
ceivable, general  ledger,  payroll.  Jnvenlory,  tax 
accounting,  spreadsheets,  mailing  lists  ...  and 
much  more! 

FDR  EDUCATIDNj  Perfect  for  everyone  Irom  Ph,  D. 
candidates  lo  pre-school  youngsters.  A  large  se- 
lection of  programs  are  available. 
FDR  HDMEI  tJse  for  analysis  of  personal  invest- 
ments, income  tax  planning,  household  data ...  AND 
fast-paced  arcade  games!  Can  hook  up  to  your 
TV  with  use  of  RF  modulator  (not  inci ) 

SNAP-0^  COMPUTER:  64k  ram  and  20k 

ROM,  Full  size  typewriter  keyboard  with  uppei 
and  lower  case  letters,  numerals,  symbols,  re- 
verse characters.  2  cursor  control  l<eys,  4  func- 
tion keys,  programmable  to  8.  Music  synthesizer 
with  3  independent  voices,  each  with  range  of  9 
octaves.  Input  and  output  ports  for:  User,  serial, 
ROM  cartridge,  2  joysticks,  external  monitor, 
modem, 

BUILT-IN  DISK  DRIVE:  intelligent,  high- 
speed. 5W  disk  recorder,  170K  formatted  data 
storage:  35lracks,16K ROM. Usessingleside, 
single  density  disks.  Serial  interface.  Second 
port  to  Cham  second  drive  or  printer. 


BUILT-IN  COLOR  MONITOR:  Cr>ior  moni 

tor  displays  40  columns  x  25  lines  of  lext  on  5" 
screen.  High  resolution,  320x200  pixels.  16  back- 
ground and  character  colors, 

BUILT-IN  ROM  CARTRIDGE  PORT: 

JusI  slip  in  a  ROM  program  cartridge,  A  huge  va- 
riety of  subjects  are  available. 

Now  available  at  FAR  BELOW 
dealer  cost  of  new  models! 


Original  List 
Price 


$ 


«995.00 


388 


Liquidation 

Price 

Now  Only  . . 

llcm  H1275-3S31  009  Ship,  handling   S20  00 

Sales  outside  contjnenlal  U,S.  are  subj^t  to  special 
conditions.  Please  call  or  write  to  inquire. 


I  C.O.M.8.  Direct  Marketing  Corp.                       Item  H-1275 

I  1460S  28th  Ave.  N. /Minneapolis.  MN  55441.3397 

I    Send 64K  Computerls)  Item  8-1275-3631. 003  at  5386 

I  each    plus    S20   each    for   shipping,    handling.    IMtrnesQta 

tesrdenis  add  6%  sales  tax  Sorrv,  no  C  O.D  orders  ) 

I  lI  Mv   check   or   monev   order    is  enclosed    (No  delays   in 

I  processing  orders  paid  bv  check,  thanks  [□  TeleCheck,^ 

Toll-Free:    1-800-328-0609             I  charge  lomv:  a  visa?        DtklasterCard. 


Cfcdil  card  cusionicus  can  order  by  phone. 
24  hour£  d  d^v.  'r^^^^^  \/^''yr~\i 


Yqu(  check  15  vwelcDTnei 

No  delays  m  orders  paid  by  check 


C>OiMiB«  Direin  Marketing  Corp. 
Authorized  Liquidator 

14605  28th  Ave.  N.  •  IVIpls..MN  55441-3397 


Ekp 


PLEASE  PRINT  CLEARLY 

Mame    —^ 

Addrais  

Citv  

Stale  , 


Phone L 


Si^n  here  _ 


Advertisers  Index 


Reader  Service  Number/ Advertiser  Page 

102  Abacus  Software    25 

103  Abacus  Software    27 

104  Activision     13 

105  Artificial  Intelligence 126 

Batteries  Included    BC 

106  Blackship  Computer  Supply 126 

107  Chase/Manhattan  Bank     7 

C.O.M.B.  Direct  Marketing  Corp.  ...  127 

108  CompuServe     IFC 
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1 10  Computer  Mail  Order 30-31 
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1 1 1  Duplicating  Technologies  Inc 125 
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116  Protecto    21-23 
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1 19  Springboard  Software  Inc. 

120  subLOGIC  Corporation  .  . 

121  Unitech    

122  White  House  Computer   . 


Page 

14 

68 
.  4 
IBC 
68 
63 


Classified  Ads  1 26 

COMPUTE!  Books  Amiga  Collection    ...   15 

COMPUTEI  Disk  Subscription 32,119 

COMPUTE!  Subscription    17 

COMPUTEI's  Atari  ST  Disk  &,  Magazine 

Contest     2,3 

COMPUTEI's  First  Book  of  the  Commodore 

1 28  &  Electronics  Computer  Projects  .  9 
COMPUTEI's  Kids  &  the  ST  &  Kids  &  the 

Commodore  128    19 

128  Machine  Language  for  Beginners    .  .   1 


To  Our  Readers: 

COMPUTE!  Publications  is  a  part  of  the  ABO  Consumer  Magazines  group  of  ABC 
Publishing,  Inc.  and  recently  we  consolidated  many  of  our  operations  and  moved 
our  Customer  Service  Departnnent  to  the  New  York  ABO  headquarters.  If  you 
have  any  questions  regarding  back  issues,  disk  orders,  book  orders,  or  how  to 
place  an  order,  call  toll  free  1-800-346-6767.  New  York  residents  should  coll 
212-887-8525. 

If  you  want  to  order  O  subscription  to  COMPUTE!,  COMPUTEI's  GAZETTE,  COMPUTEI's 
GAZETTE  DISK,  Of  the  COMPUTE!  DISK,  call  1-800-247-5470  Of  in  Iowa  call 

1-800-532-1272. 

Our  Editorial  Offices  remain  in  Greensboro,  North  Carolina.  If  you  wish  to  submit  an 
article  for  publication,  write  us  at  COMPUTE!  Publications,  Inc.,  P.O.  Box  5406, 
Greensboro,  NO  27403. 
We  thank  you  for  your  interest  and  continued  support  of  COMPUTE!  Publications, 


COMPUTE!  Publicationsjnc.® 

tJnrt  rif  ARC  Consumer  Maoozines.  Inc  ^^^^ 


Part  of  ABC  Consumer  Mogozines,  Inc 
One  of  me  ABC  PuWishino  Compantes 
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Flight  Simulator  II 

Scenery  Disks 

The  Challenge  of  Accomplished  Flight 

With  a  realism  comparable  to  (and  in  some  ways  even  surpassing) 
$100,000  aircraft  flight  simulators,  Flight  Simulator  II  includes  full 
flight  instrumentation  and  avionics,  and  provides  a  full-color  out-the- 
window  view.  Instruments  are  arranged  in  the  format  standard  to 
modern  aircraft.  All  the  radios  needed  for  IFR  flight  are  included. 


Program  features  are  clearly  documented  In  a  96-page  Pilot's  Operat- 
ing Handbook, 

For  training  in  proper  flight  techniques,  Flight  Simulator  II  includes 
another  96-page  Instruction  manual,  compiled  by  two  professional 
flight  Instructors  with  over  8,000  hours  flight  time  and  1 2,000  hours 
of  aviation  teaching  experience.  You'll  learn  correct  FAA- 
recommended  flight  procedures,  from  basic  aircraft  control  through 
instrument  approaches.  To  reward  your  accomplishments,  the 
manual  even  includes  a  section  on  aerobatic  maneuvers. 

The  Realism  and  Beauty  of  Flight 

Go  sight-seeing  over  dcGilled,  realistic  United  States  

scenery.  High-speed  graphic  drivers  provide  an 

animated  out-the-window  view  in  either  day,  dusk,  or 

night  flying  modes.  . .■>; 

Flight  Simulator  II  features  over  80  airports  in  four 
different  scenery  areas:  New  York,  Chicago,  Seattle.   «™ 
and  Los  Angeles.  Six  additional  Scenery  Disks  covering 
the  entire  Western  half  of  the  United  States  are  now 
available  in  IBM  and  C64/I28  disk  formats. 


Apple  and  Atari  versions  will  be  released  soon.  Each  disk  covers  a 
geographical  region  of  the  country  in  detail,  and  is  very  reasonably 
priced. 

The  Pure  Fun  of  "World  War  I  Ace" 

When  you  think  you're  ready,  you  can  test  your  flying  skills  with  th< 
"World  War  I  Ace"  aerial  battle  game.  This  game  sends  you  on  a 
bombing  run  over  heavily-defended  enemy  territory.  Six  enemy      > 
fighters  will  attempt  to  engage  you  in  combat  as  soon  as  war  is 
declared.  Your  aircraft  can  carry  five  bombs,  and  your  machine  guns 
are  loaded  with  1 00  rounds  of  ammunition. 

H 

See  Your  Dealer.  Flight  Simulator  II  is  available  on  d.. „,^    ^ 

Apple  II,  Atari  XL/XE,  and  Commodore  64/128  computers  for 
$49.95.  Scenery  Disks  for  the  C64  and  IBM  PC  (Jet  or  Microsoft 
Flight  Simulator)  are  $  1 9.95  each.  A  complete  Western  U.S.  Scenery 
six-disk  set  is  also  available  for  $99.95.  For  additional  product  or 
ordering  information,  call  (800)  637-4983. 

AppJc  Una  tndcnuHc  of  Apple  Computer,  Jnc,         1^9 
I  Awfi  XL  and  XE  arc  trademarks  oi  Awn  Corp.  ' 

Commodore  64  and  \7S  arc  trademarlii  of  Commodore  Electronics  Ltd- 
IBM  PC  111  rcgiiiered  iradcnurk  o'  In  terra  bona  I  Busincw  Machinei  Corp. 


LOGIC 


713  Edgebrook  Drive 
Champaign  IL  61820 

(217)359-B482Telei(:206MS 

Order  Line:  (800)  G37-4983 

(encax  m  [Imas.  AJ«Iu.  and  H3WMJ 
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hy  Tom  llitds/m 
Tlw  artist ic  siandani  for  lire  ST!  Beautiful  graphics 
program  forlnisincss  and  pleasure.  All  lire  key  drawing/ 
painting  functions,  lexl  integration,  and  graphic 
design  tools!  A  vailable:  i\ow! 


PbrtMo  »y 

s-vs'TEM    M:irk Skapinkcr 
Invcsimenl  management  program  designed  for  private 
investors  and  professionals.  On-line  portfolio  updating. 
Anafyiical  functions  for  mofvpmfitable  decisions. 
A  PC  Magazine  editor's  clioice!  Availahte:  Now! 


iHil 


In  Siiflrrlmiiv 


mm 


l)\  Sicplirn 
i:tiii(imi;m 


Scheduling  &  Time-I<eeping  tool  for  home  and  business. 
Your  day:  week,  month,  year  at  a  glance.  Many  incredible 
uses!  .Available:  Now! 


THUNDER! 


l)\'M!irk 
Sf^itp'mkcr 


llhtiMlliMllmltltiilililMmiiaat 


t  -  spelling  checker.  Alibieviations  function  completes  a  woid 
'■-  when  you  enter  the  fti^t  lellcis.  Amazing  speed. 
■  ■  Availai)le:  3ixi  Quarter  1986. 


l^ill^scale  U;lccommunicalions  program.  Easy  to  use  and      '^, 
virlitaify  error-proof  Includes  50. 000  yvoirl  spelling  checker 
and  ihme  levels  of  macros  Available:  Now! 

iinilSlnv  Milslnmi 

Next  generation  word-processor  All  tlie  high-pmductivity 
features  plus  a  ival-timc  spell  checker  idea  processing, 
integrated  text/graphics,  much  more! 
Available:  3rd  Quarter  1986. 

'   " 

L^         l)\'li)mllu(ls(m 


IKMCN  I  KM  Kkr.MNMKST<' 


■    H  Ul^  _    H        liyRtissWt'Unorc  i)i..M<;NiKNiKkT.MNMKST< 

^^^^JhTh^^V^^^H^  Second-gcneralion 

•   B^^B  ■  ^m^M    ^^H^  quality  visuals.  Full  range  of  design/color  functions.  Multiplt 

^    5^  version  oflnfoWorld's  Best  Buy  of  the  Year  Award!  workscreens.  new  fonts,  many  other  enhancements.  The 

3  integrated  pmgrams  on  one  disk.  Tblecommunicatlons.  deluxe  Degas  Elite  is  totaify  compatible  with  alt  other  Degas 

-. ,  Word-processor.  Information  manager  Tlie  easy  answer  to  /j/es/  integrate  your  Degas  Elite  pictures  with  PaperClip  Elite 


quality  visuals.  Full  range  of  design/color  functions.  Multiple  ■ 
workscreens.  new  fonts,  many  other  enhancements.  The 
deluxe  Degas  Elite  is  totaify  compatible  with  all  other  Degas 


three  key  software  needs.  Available:  3rd  Quarter  1986. 
f     _  _  ^    ^^^  SPREADSHEET 

l)y  Alan  I'orlcr.  Muriin  Hc/.nwrandJason  iAweman 

\  <.  "ftvo  in  one!  Sophisticated  full  featurx^  spreadshciH 
'    pmgram.  Alt  the  key  Math.  Slats.  Logical  and  Financial 
;    functions.  1000  x  1000  worksheet.  Plus  Desk  accessory 
version  on  same  disk!  .Available:  3rd  Ouarler  1986. 


text  files  Available:  3rd  Quarter  1986. 


.l(irCtii!ix/.fso;m(l 
Kohcrl  Witsiin 


^jAm. 


Serious  graphics/charting  and  statistics  desk  package.  Pie 
charts,  2  and  3  dimensional  bar  charts,  area  graphs,  much 
more.  Change  designs  without  re-entering  data.  Make^ 
beautiful  presentations  Available:  4th  Quarter  1986." 


bytlicB.I.Si)nw:iiv 
Developmcnl  Team 


TllE  ultimate  lelational  data  base.  Easy  to  learn.  Unique 
new  features.  Power  and  sophistication  you  can  use  right 
away  For  business  or  personal  use. 
Available:  4lh  Quarter  1986. 


K|||||AIUD  BILLIIIG  ».». 

OffKv  management  program  for  professionals.  Functions^ 
include  Daily  Records  Automatic  Billing,  Accounts  '  • 
Receival)le,  Billing  Breakdowns  and  more!  " 

Available:  4th  Ouarler  1986 


BATTERIES 
INCLUDED 


hS  TALK,  TIME  &  BILLING.  PAPERCLIP  ELITE.  CONSULTANT, 
DEGAS  ELITE  DEGAS.  PORTFOLIO,  BTS  SPREADSHEET  HOMEPAK. 
THUNDER  AND  B/GRAPH  ARE  ALL  FILE  COMPATIBLE  OF  COURSE! 

WRITE  TO  US  FOR  FULl  COLOUR  CATALOG  OF  OUR  PRODUCTS  FOR  COMMODORE,  ATARI,  APPLE  AND  IBM  SYSTEMS.  FOR  TECHNICAL 
SUPPORT  OR  PROOUCT  INFORMATION  PLEASE  PHONE  (4161  881-9816.  30  MURAL  STREET;  RICHMOND  HILL.  ONTARIO  14B  TBS  CANADA, 
(416)  881-9941,  TELEX:  Ob-9B6-2«.  1?«75  SKY  PARK  NORTH,  SUITE  P,  IRVINE,  CALIFORNIA,  USA  ^2714,  (4161  881 -9B16,  Teles:  509-139.  B  1986 
BATTERIES  INCLUDED.  APPLE,  ATARI,  COMMODORE  AND  IBM  ARE  REGISTERED  TRADEMARKS  RESPECTIVELY  OF  APPLE  COMPUTERS  INC., 
COMMODORE  BUSINESS  MACHINES  INC..  AND  IBM  BUSINESS  MACHINES  INC. 


